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CRIPTOGRAFIA 
VERSUS PIRATARIA 
I DE SOFTWARE 

APUCAQAO 

DE ENGENHARIA 

HIDRAULICA 



Sirva-se. 



O importante, numa loja de informatica, 

e o numero de opgoes que ela oferece. 

£ a equipe tecnica de que dispoe, 

para uma orienta<&o segura 

na escolha do equipamento e do programa 

mats adequados ao seu caso 

pessoaL, ou ao de sua Empresa. 

Por isso a ComputerLand 

e importante para 

sua decisao. 

Consulte o nosso cardapio: 



BRASCOM 

DACTRON 

DIGITUS 

DISMAC 

EDISA 

HP-HEWLETT PACKARD 

JR-SYSDATA 

MICRO ENGENHO 

MICRODIGITAL 

POLYMAX 

RADIO SHACK mod. IV 

SAYFI 

UNITRON AP II 

ELGIN 

ENAC 

ELEBRA 

GLOBUS DIGITAL 

ISA 

INSTRUM 

SETRA 
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Computerlond 



S&o Paulo ■ Au. Angelica, 1996 

Tels. (01 1) 258-3954 ■ 256-3307 ■ 258- 1573-231 0259 

25 7-8665 ■ 256- 7035 - 25 7-9822 e 255-904 1 ■ Telex (0 1 1) 36271 

Campinas ■ Ao. Barao de Itapura, 91 7 

Tels. (0 192) 32-4330 e 3 1S498 

Rio de Janeiro ■ Praia do Bolafogo, 228, loja 1 14 - Ed. Argentina 

Cenlro Empresahal Rio 

Tel. (02 1)55 1-8942 

Abertas ate As 22 horas 
Estacionamento Pr6prio 
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P&D Slstemas Eletrfinicoi S.A. 



HRASTREANDO 
VARlAVEIS- Com este 
programa utilitario de 
Rudolf Horner Junior, que 
permite listar as variaveis de 
programas em BASIC 
Applesoft, abre-se urn novo 
espaco em MS para micros da 
linha Apple. 



Bibliouca 
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^mbh sumarioi 
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>|/\SIMULE UM PIANO EM 
*iU SEU TECLADO - E facil 
simular urn piano e ate criar 
efeitos sonoros especiais 
com este programa de Newton 
Braga Junior para 
equipamentos compativeis 
com o TRS-80. 



6PONHA MtJSICA NO SEU TK 
- Programa de Cleuton de Melo Junior. 

<| *j MtJSICA, MAESTRO! - Programa de 
±£ Roberto Quito de Sant'Anna. 

1 £ DlGITOS VERIFICADORES - Artigo de 
XO Eraldo Souza Roc ha. 

*}A DO, R£... MICRO - Programa de 

£rT Thelma V. T. da Fontoura. 

/} r% ABRINDO ESPACO NA TELA - Artigo 
^O de Renato Degiovani. 

^ O SOM (MAIS HARMONICO) DE SEU 

^Q APPLE - Programa de Evandro 
Mascarenhas de Oliveira. 




A <+ CRIPTOGRAFIA, UMA 
tZ ARMA CONTRA OS 

PIRATAS? - I - Ja usadas no 
tempo dos romanos, as tecnicas 
criptograficas adquirem 
nova dimensao na era 
do computador. Artigo de 
Candido Fonseca da Silva. 



£/■% O MICRO DA A 
oZ LARGADA! - Neste 
perigoso circuito de F6rmula I, 
e preciso ser um as do 
volante para nao sofrer 
acidentes. Programa de Renato 
Degiovani para os micros 
da linha Sinclair. 



rg?0 ERRO DE TRUNCAMENTO EM 
DO BASIC - Artigo de Akeo Tanabe. 

APLICACOES EM SANEAMENTO 
^q BASICO - Programas de Hilton Felicio 
dO dos Santos e Antonio Carlos 

Franco Zuccolo. 

>j^FLIP: CAPTURE O ADVERSARIO 

OO - Programa de Hon6rio Lisboa Neto 

-jr| O SISTEMA DE CODIGO DE BARRAS 
/U- Artigo de Alwin Wilhelm Elbern. 



MINHAS PIORES PARTIDAS DE 
XADREZ - Programa de L. C. Lobato. 

MICRO SISTEMAS, ANO II - indice da 



34 



JAZZ CIBERNfcTICO - Programa de 
Marcus Brunetta. 



as ACERTE NA LOTECA COM O D-8000 
TkO - Programa de Ivo D'Aquino Neto. 

ac% OPERACOES COMPLEXAS EM BASIC 

^O - Programa de Valdir Aguilera. 



74 

/ O Revista, dos numeros 13 a 24. 

86 CURSO DE ASSEMBLER - VIII 

qsj DATA PROVAVEL DE PARTO 

jfdm - Programa de Adauto Barbosa. 

PARABENS NO DIA CERTO 
93 " ^ >ro & rama ^ e Luiz Gonzaga de 



Alvarenga. 



SECOES 



4 EDITORIAL 
8 CARTAS 

10 XADREZ 

18 LIVROS 

20 BITS 



32 CONVERSAO 

38 EQUIPAMENTOS: EGO 

50 MS RESPONDE 

54CURSOS 

£Q EQUIPAMENTOS: 

00 JR Sysdata 



69 MENSAGEM DE ERRO 
84DICAS 

qa CLASSIFICADOS 
^ECLUBES 

94 LOJAS: COMPUTCHE 
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• A Associagao Comercial do Rio de Ja- 
neiro mcentivou a criagao de um Conse- 
Iho Permanente de Informa'tica que, se- 
gundo Jose Maria Sobrinho, Presidente da 
Assespro Nacional e tambem do Conse- 
Iho, servira' como uma assessoria cons- 
tante a Associagao. 

Durante a posse do Conselho, realiza- 
da em 05 de agosto passado, o Secretario 
de Informatica, Joubert de Oliveira Brizi- 
da, proferiu discurso no qual relacionou 
as tr6s principais razoes para a existencia 
de uma Politica de informatica. nos mol- 
des da que vem sendo encaminhada rto/e. 

• Acontece que a Informa'tica nao pode 
ser considerada um departamento estan- 
que da atividade econdmica, algo que pos- 
sua uma politica independente. 

Ao contr&rio, conforme seu peso au- 
menta, conforme as repercussoes desta 
tecnologia se difundem por entre todos os 
aspectos de nossa vida social, torna-se 
imprescindivel que politica de informatica 
e politica econdmica geral cada vez mats 
se contundam, se unifiquem, principal- 
mente no que diz respeito a coerencia. 
Senao, imaginemos: a politica particular 
incentiva as exportagoes; a politica geral e 
seus intricados aspectos cambiais prati- 
camente tornam-na impossivel. A politica 
particular busca a substituicao das impor- 
tagoes; a geral restringe a importacao dos 
insumos dos bens que pretendem substi- 
tuir as importagoes. A politica particular 



luta por uma autonomia; a politica geral 
compromete-se, trazendo em seu bojo 
pressoes que dificultam bastante qualquer 
tentativa de resguardo nacional. 

• Justamente a primeira razao apontada 
pelo Coronel Brizida foi a econdmica, i.e., 
a substituicao das importagoes, uma vez 
que a tecnologia e o segundo item de 
nossa pauta de importagoes. A Abicomp, 
associagao dos fabricantes da area, por 
sua vez, comega a preocupar-se seriamen- 
te com as restrigoes impostas a importa- 
gao dos componentes necessanos a fabri- 
cagao dos equipamentos, principalmente 
na industria de perifericos. Se a situagao 
prosseguir, resta a imposigao de uma ace- 
leragao na escaia de nacionalizagao do 
produto. Isto envolve muito investimento, 
muita pesquisa e, sobretudo, tera um 
prego. 

• A segunda razao apontada pelo Secre- 
tario e estrat&gica. Tecnologia, disse ele, e 
fundamental para a existencia de um siste- 
ma competitivo e dinSmico, e tambem pa- 
ra o sistema de defesa, este da esfera de 
Seguranga Nacional. 

A criagao do sistema competitivo de- 
pende de outros fatorespara ser efetivada, 
tanto na area interna da informatica quan- 
to nas demais, uma vez que estamos con- 
siderando aqui a informatica como um 
bemlservigo de suporte. A criagao depen- 
de do tator prego. Prego pensado num re- 
ferencial de competitividade e performan- 



ce externa. Prego pensado ainda mais sob 
a luz de uma anahse do mercado interno. 
O grande mercado 6 o Brasil, e temos que 
pensar como ele ticari depois do diluvio. 

• Uma maior preocupagao com o merca- 
do interno esta implicita, inclusive, na ter- 
ceira forga motriz da Politica de Informa- 
tica, a formagao de uma culture nacional, 
segundo Brizida condicionada ao nivel de 
capacitagao tecnoldgica do pais. Neste 
ponto, qualquer que seja o argumento, 
existe um consenso: a reserva de mercado 
criou uma massa critica realmente capaci- 
tada a levar adiante o processo de absor- 
gao e desenvolvimento da informa'tica. 

• Reconhecendo as "razoa'veis necessida- 
des de atualizagao do mercado, sem con- 
tudo descaracterizar a iniciativa nacional" 
o Secreta'rio de Informitica disse ser "im- 
possivel assimilar tecnologia atraves da 
compra de projetos industrials" 

Dificil realmente e, mas tudo depende. 
Depende de quern compra; depende de 
quern vende; depende do que se entende 
por assimilar tecnologia; depende de co- 
mo se paga. Fundamentalmente depende 
do prego. A opgao de compra de tecnolo- 
gia tern um prego. A autonomia tern outro. 
E uma equagao que trata de equilibrar o 
prego pago pela nagao e o prego pago 
pelo usuario. 
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• Para avitar poaaivaia probiemas futu- 
roa, informamoa qua a firma Spartima a 
o ar. Eloi Jora Soaraa nao maia rapra- 
aantam a raviata MICRO SISTEMAS para 
fina da vanda da aaainaturaa. 
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Programas para o seu 
TK82-C e TK85 




JOGO DE GAMAO 
16K 

Ctla pfogmma aptatanta o tabulatro no 

•idao • ulili/a o alioanta codigo da nn 

limlo 4 Iqualiol m«ait da 



MONSTRO DAS TREVAS 

TRIDIMENSIONAL - 16K 



DEMOLIDOR 
2K 

Jogoanimado iipo fiipei 



dot davaia damolu 
imi bola qua »» i 



ima paiada co 
onlia tampia am 



LABIRINTO 
TRIDIMENSIONAL 16K 

9% dlfn«nftO*« jogadoi po 

i « dilit:u>d«d« do labtnnlo 

O piogt*m* apt e tan I a a po«<c*o do )0 

gadOf am panpactiva Emqujkjuar mo 

i»»o a powivwl padit 
put ado- 



"X" 



INVASORES DO 
ESPAQO 16K 

Consult da uma trola da na»»» myato 
cat ailtalatianat datcando no planaia 
Tana Sua mlisao a dattruir at na«at 
m*a torat ditpondo da atmi da ralot la- 




-•^ 



:\:a.~... 



MATEMATICA I 
16K/64K 

Analita gialica da tuntoat mi 
cat. latolucao da titlamat d< 

coat linaalat |16K SI aquacoat 
•quacoati a Cakulo da intagu 




RALLY 
16K 

Emocionanla corttda da rally am um 1 
txnnio onda podarao tar latladot ti 
habilidacla a taut ratlaiot Paia cont 
gun tau if 



nmMmWW k 




TKMAN 
16K 

Jogo animado onda davaiao tai apaga 
dot lodot ot pontinhoi atpaltiadot ai 



TKALC 
16K/64K 

Piogi 




aplicadat ' — 

Da gianda »a'talilidada. an 
parmila a lotmulacAo da la 
lilicot a comaiciait. anallta da tabala 
numerical » ouliai aplica^oat 



TKADREZ II 
16K 

<j.» ap'atanla o tabulairoa at pa 
— no oidao Paimrta a atcotna da IM 
- - da dilKuldada piogiama lor 
uar momanlo a litlaga 
dot lancat aiMuadot a a 
Ma a potrcao dat ptatat I la podara ta 
a ana togada 
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Transforme seu TK em um verdadeiro piano eletronico e reviva Beethoven em ritmo ciberne'tico. 



Ponha music a 
em seu TK 



C leu ton de Melo Junior 




Parando para pensar um pouco, reparamos que convivemos com a violencia 

o dia inteiro, entao, por que s6 fazermos programas de guerra, tiros e naves 

atacantes? Para sair um pouco desta rotma, aqui esti um programa que mostra a 

real capacidade do seu TK82-C (ou similar). 

Carregue-o, digite RUN 1 10, seguido de NEW LINE, e o programa lhe 

ensinara como usd-lo. 



1 REM 01234567890123456789012 
345678901234567890123454 

2 REM 

5 GOTO 9990 
10 PRINT "ENTRE COM SUA MUSICA 

■ 

15 INPUT A$ 

20 LET A*-=A$+"FFF" 

25 LET 0=16567 

30 FOR 1=1 TO LEN A$-l STEP 2 

40 POKE 0, (CODE A$ (I) -28) *16+C 
ODE AKI+D-28 

50 LET 0=0+1 

60 NEXT I 

70 FAST 

75 LET K-USR 16546 

80 CLS 

81 SLOW 

82 PRINT TAB 2; "TECLE <1> P/TO 
CAR NOVAMENTE" 

83 IF INKEYI-"" THEN GOTO 83 

84 IF INKEY$="S" THEN GOTO 30 

85 PRINT TAB 2; "TECLE <2> P/ O 
UTRA MUSICA" 

86 IF INKEYl-"" THEN GOTO 86 

87 IF INKEY$="S" THEN GOTO 245 

88 IF INK£Y$="1" THEN GOTO 70 
90 PRINT AT 10,12; "FIM" 

99 STOP 

100 SAVE "PIANO" 

110 PRINT "PIANO ELETRONICO" 

115 PRINT " " 

120 PRINT , , , , "CADA SOM CORRESP 
ONDE A UM VALOR HEXADECIMAL." 

130 PRINT ,,"PARA OBTER A MELOD 
I A DESEJADA, VOCE DEVE TECLAR N 
A LINHA 10 (10 LET A$=) OS CO 
DIGOS HEXA DE CADA SOM, QUANDO A 

MAQUINA PEDIR" 

140 PRINT ,,"OS SONS TEM A DURA 
CAO IGUAL E PARA OBTER NOT AS M 



AIS LONGAS REPITA O CODIGO. I 
NTERVALOS SAO OBTIDOS COM O CODI 
GO 00." 

145 PRINT AT 21,0;"TECLE NEW LI 
NE P/CONT." 

150 IF INKEY*-"" THEN GOTO 150 

155 CLS 

160 PRINT " NOTA 1 ESCALA 

2 ESCALA" 

165 DIM B$(2,24) 

170 LET B$(1)="F0E5D8CFC3B8ADA5 
9C948B83" 

175 LET B$(2)="7A736B67605A5651 
4B484440" 

180 LET C|="C C+;D-D D+;E 
-E F F+;G-G G+;A-a A 
+ ;B-B 

190 FOR 1=1 TO 12 

200 PRINT C$(I*5-4 TO 1*5) ;TAB 
11;B*(1, 1*2-1 TO I*2);TAB 24;B$( 
2,1*2-1 TO 1*2) 

210 NEXT I 

220 PRINT , , "COMO EXEMPLO, TEMO 
S MUSICAS NAS LINHAS 1000 E 1010 
. SE VOCE QUERTOCA-LAS , RESPONDA 

POSITIVAMENTEAS PERGUNTAS, MAS 
ANTES AUMENTE O VOLUME DA TV." 

230 PRINT AT 21,0; "P/CONTINUAR: 
NEWLINE 

240 IF INKEY$="" THEN GOTO 240 

245 CLS 

246 PRINT "TECLE." 

247 PRINT TAB 5;"<S> P/OUVIR OS 
EXEMPLOS OU" 

248 PRINT TAB 5;"<N> P/COMPOR S 
UA MUSICA" 

249 IF INKEY$="" THEN GOTO 249 

250 IF INKEY$="N" THEN GOTO 10 

251 IF INKEY$o"S" THEN GOTO 24 
9 

255 PRINT 

260 PRINT "TECLE:" 

262 PRINT TAB 5;"<1> P/ ""PARAB 
ENS"" OU" 

264 PRINT TAB 5;"<2> P/ ""SINFO 
NIA""" 



270 IF INKEY$="" THEN GOTO 270 

280 IF INKEY$="1" THEN GOTO 100 


290 IF INKEY$="2" THEN GOTO 101 


300 GOTO 270 

999 REM PARABENS 
1000 FAST 

1005 LET A$="B8B800B8B800A5A500B 
8B8008B8B00949494940000B8B800B80 
OA5A500B8B8007A7A008B8B8B8BOOB8B 
800B8005A5A5A6B6B6B008B8B8B00949 
400A5A5A500676700676B6B008B8B007 
A7A008B8B8B" 

1008 GOTO 20 

1009 REM QUADRAGESIMA SINFONIA 

1010 FAST 

1011 LET A$="B8C300C3C300B8C300C 
3C300B8C300C3C37A7A7A007A8394940 
094A5B8B800B8C3D8D800D8D8D800C3D 
800D8D8C3D800D8D800C3D800D8D8838 
38300839 49C9C009CB8C3C300C3D8F0F 
000F0F0007A830083836B6B9C9C83839 
494C3C3007A830083836B6B9C9C83839 
4947A7A007A8394A5B8B8C3C3B8B8" 
1019 GOTO 20 

9990 LET A$="7B3D20FDC906E05EAFB 
B280CDBFECD8240D3FFCD824018050E0 
50D20FD10E8C921B740CD8740237EFEF 
F20F7C9" 

9991 LET 0=16514 

9992 FOR 1=1 TO LEN A$-l STEP 2 

9993 POKE O, (CODE At (I) -28) *16+C 
ODE A$(I+l)-28 

9994 LET O-O+l 

9996 NEXT I 

9997 SLOW -. 

9998 CLS +• 

9999 GOTO 110 

Cleuton Sampaio de Melo Junior 6 teen 6 logo 
em Processamento de Dados pel a Sociedade 
de Ensino Superior e Assessoria Ticnica — 
SESAT/RJ. Trabalha hi cinco anos em PD. 
Atualmente 6 programador no BANE R J. 
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A geracao def initiva e sempre a proxima 




Voce s6 descobre o quanto precisa de um Micro-Com- 
putador JR da Sysdata depots que o conhece de perto. 

Voce vai ter certeza de que fez um 6timo negocio ao 
adquirf-lo assim que o colocar na sua empresa ou na sua 
can. 

JR da Sysdata e rapido, e versatil, e compacto. 
APLICApOES: 

Contabilidade, controle de contas a pagar, controte de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatorio de clientes, mala direta, 
calculos de orcamentos f inanceiros,controle de processos 
industrials, calculos de engenharia, calculos de estatfsti- 
cas, funcOes matematicas, fun^oes logicas em cadeia de 
caracteres (STRINGS), graficos, jogos animados, progra- 
mas educacionais. 
O JR PERMITE AINDA: 

O acesso a grandes sistemas de computacSo, a comuni- 
cac3o entre os departamentos de Empresa, efetuar pro- 
gramas especlficos para cada Empresa. 

E, como se nao bastasse, ele e o Micro-Computador do 
manor preco do mercado 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tio economico. Mas e. 

Afinal, ele e o mais completo Micro-Computador de sua 
gerac3o. 

Inclusive no preco. 

Voce pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 




Rua Jorge Duprat Figueiredo, 647 - CEP 04361 
1 1 Inll vila Santa Catarina ■ Sao Paulo ■ SP 
-, anVJi i^H Fones: 5421122 537-0390 531-0410 
Telex (011)23573 



REVENDEDORES' SAO PAULO: Capital AD Data = 864.8200 ADP System = 227-6100 Bucker = 881 7995 - Compushop = 212 9004/2100187 Compute = 
852 8290257 3952 Computerland = 258-3954/1573 - Foto Leo = 35-7131 - Guedes = 289-9051 Interface = 852-5603 - Lema =210-5929 MaPPJ" ■ 
258 441 1/258-731 1/9358 -Microre. = 881-0022 Microshop = 852-5603 - Miprotec = 289-4941 Plantel = 543-9653 - Runners = 68-3779 - Sacco = 814-0598 
Serv.mec = 222 1511 Sistemac = 282-6609 Sos = 66 -7656 Campinas -Computer House = (0192)852-5855 Microtek = (0192) 32-4445 ■*£,£**>** 
Proto Compusys = (016) 635-1 195 Seno = (016)32-0600 MogJGuacu Guacumaq = (019) 261-0236 Taubata Enscom = (0122) 33 :2252 - PERNA^UCO - 
Racrle Eloq.ca - (0801 241 -1 162/241 -1 149 - GOlAS GoiAnia Casa do Micocomputador = (062) 223-1 165 - Grupom (062) 225 8226 MATO QROS^ DO 8UL- 
CampoGrande DRL = (067) 382 6487 - Video Computadores = (067) 321-4220- BRASILIA - Capital Compushow = (061) 273-2128 -Digitec = 1061) 225-4534 
RIODE JANEIRO -Capital Clap = (021 ) 288 0734284-5649 Computique = (021 ) 267 1093 Knstian = (021) 252-9057 - Micromaq = (021) 222 6088 Ps*6po- 
■a FotoOtica ■ (0242) 42 1393/43 6120 PARANA - Londrina Shop Computer = (0432) 23-9674 - Umuarama CBM Comercal = (0446) 23 2233 Curttiba 
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S.stemat.ca = (0512121-0732/21-0835 



i / I 




O sortsado deste mes, que recebera 
gratu itamente uma assinatura de urn ano 
de MICRO SISTEMAS, 6 Eduardo Scha 
drack, de Santa Catarina, 



MANUAL DO D-8001 



(. . .) Sou ofeliz proprietano de uma 
calculadora - HP-41C, bem como de 
um Dismac D-8001, equipado com 
impressora. Pena que o "manual de 
BASIC" deste ultimo seja ridi'culo, 
considerando o seu porte e as suas po- 
tencialidades (por exemplo, o manual 
do TK82-C, meu equipamento ante- 
rior, era muito mais completo em rela- 
cao ao D-8001). Varias funcoes exis- 
tentes no D-8001 nao sao referidas 
como, por exemplo, a funcao INKEY. 
S6 foi possi'vel saber o funcionamento 
de varias funcoes do equipamento atra- 
ves de programas e artigos publicados 
em MICRO SISTEMAS. 

Outra coisa: acima do teclado redu- 
zido existem quatro teclas (F1 a F4) 
completamente inuteis, s6 servem para 
mostrar alguns caracteres especiais. Es- 
crevi para a Dismac relatando isto mas 
ate agora nao recebi resposta (a carta 
foi encaminhada junto com o cartao 
de inscricao no Clube dos Usuarios, 
sendo possi'vel que tenha se extravia- 
do). 

Cabe dizer ainda que o manual se 
refere ao equipamento D-8000 (com 
gravador embutido). No mi'nimo, acho 
que a Dismac deveria publicar um "su- 
plemento" sobre o D-8001, enfatizan- 
do, principalmente, as caracten'sticas 
de impressao — alias este foi o princi- 
pal motivo que me fez trocar para o 
D-8001. O manual nSo mostra e nem 
faz referencias a impressao de caracte- 
res minusculos. So consegui descobrir 
por acaso que a impressora imprime le 
tras minusculas quando se tecla 
SHIFT, por sinal, o vfdeo tambem nao 
mostra esse caracteres quando se acio- 
na o codigo ASCII correspondente. 

Para atenuar um pouco este ultimo 
aspecto, em favor da Dismac, deve ser 
dito que recebi tambem o manual da 
impressora em Ingles, o qual ainda nao 
pude ler com a devida atencao. Mas, de 
qualquer forma, sempre ficarS a duvi- 
da: sera que todas as caracten'sticas da 
impressora (que at§ agora tern sido 
excelente) sao compati'veis com o 



D-8001 e vice-versa, ou existem coisas 
que um faz e o outro.nao pode fazer? 
Digo isso porque a impressora nao e 
fabricada pela Dismac, como da a en- 
tender o manual da mesma (. . .). 
Paulo A. L. Borges 
Porto Alegre - RS 

Como 6 habitual, Paulo, mandamos 
as suas observances para a Dismac que 
nos remeteu a seguinte resposta: 

"Admitimos que existem funcoes 
que nao sao explicadas no manual, 
porem 99% das instrucoes existentes 
no BASIC nfvel II (linguagem utilizada 
pela fami'lia D-8000) estao no manual, 
e bem explicadas. 

As instrucoes que nao sao menciona 
das no manual sao apenas tr6s: INKEY 
$, USR e VARPTR. As outras instru- 
coes que nao sao mencionadas (as do 
APENDICE A, de onde o leitor deve 
ter tornado como base para fazer tais in- 
dagacoes) nao existem no BASIC nfvel 
II, portanto nao ha como ex pi i car uma 
instrucao que nao funciona na lingua- 
gem utilizada e, portanto, nos micros 
da fami'lia D-8000. 

As famflias at£ aqui tern como on- 
gem o APENDICE A, porque na hora 
da verificacao da prova do manual, por 
um lapso esquecemos, e lamentamos, 
de retirar estas instrucoes inexistentes 
no BASIC nfvel Ilea introducao das 
tres instrupoes que faltavam. 

Com relacao as "teclas inuteis", 
gostarfamos de ressaltar que elas nao 
sao inuteis. Estas quatro teclas foram 
introduzidas recentemente no equipa- 
mento e ainda nao houve tempo habil 
para uma utilizacao especffica. Encon- 
tra-se em estudos a possibilidade de 
gravacao de programas aplicativos em 
EPROM, que seriam acessados atraves 
de uma dessas quatro teclas. Para nao 
ter que carregar um programa a toda 
hora, o que o leitor tern que admitir 
que 6 um processo lento, este progra- 
ma seria acessado, por exemplo, pela 
tecla F2. 

Percebe-se entao que tudo que o 
equipamento possui tern sua utilidade. 
A Dismac, sempre procurando ajudar 
ao maximo o usuario. fez o lancamen- 
to deste teclado, momentaneamente 
sem funcao, apenas para que depois de 
lancada esta novidade, o usuario nab 
tenha um acrescimo de preco no custo 
do equipamento para a adaptacao des 
se novo recurso, o que nao seria inte- 
ressante para o usuario em dias de crise 
economica. Como se ve, a Dismac so 
esta pensando no bom atendimento ao 
cliente. 

Quanto a* correspondencia enviada a 
Dismac pelo leitor, lamentamos infor- 
mar que nao a recebemos. 



Ainda com referenda as cnticas de 
que o manual nao 6 do D-8001 e sim 
do D-8000, querfamos esclarecer que o 
manual 6 o mesmo para ambos, porque 
essa nomenclatura 6 apenas um jogo 
comercial. A unica diferenca que exis- 
te de um micro para o outro 6 a adicao 
de uma impressora. 

A questao de se publicar um suple- 
mento de impressao seria inviavel, 
porque o D-8001 nao funciona com 
apenas um modelo de impressora. Este 
suplemento nem teria sentido porque 
se sao de diferentes modelos, 6 eviden- 
te que cada uma tenha suas particular! 
dades e elas estao nos seus respectivos 
"manuais da impressora". 

Quanto a compatibilidade das im- 
pressoras ao D-8001, e evidente que 
sao compatfveis, pois nao teria sentido 
vender uma impressora que nao fosse 
compatfvel com o equipamento. 

Quanto a recursos de impressao, 
cabe ao leitor ler o "manual da impres- 
sora" porque 6 la que estao relacio nados 
os recursos da mesma. Alias nao 6 ne- 
cessano nem ler, porque a maioria do 
conteudo desses manuais sao tabelas. 
Agora o que o leitor necessita fazer e 
assimila-las. 

Com relacao a geracao de caracteres 
minusculos no video, o leitor pode ma- 
nusea-los atrav6s da instrucao POKE e 
naoCHRS." 
Valdomiro Colovati 
Gerente Nacional de Vendas da Dis- 
mac 



MSAGRADECE 



Considero a revista MICRO SISTE- 
MAS muito boa. Mas a capada revista 
e muito pobre, pois 6 feita de material 
muito fino. fato da revista usar en- 
cadernamento com grampos contribui 
para que a capa se desprenda facil- 
mente da mesma e, em seguida, as fo- 
Ihas. 

Seria bem melhor se fosse feita uma 
capa com papel mais consistente e que 
fosse adotado outro tipo de encader- 
namento. 
Joao Luiz Baroni 
Curitibanos-SC 

Parabe'ns pela excelente qualidade 
da revista MICRO SISTEMAS, fruto, 
sem duvida, de grandes esforcos que, 
partindo de uma edicao de apenas 40 
paginas, em menos de um ano e meio 
chegou ao que £ hoje: uma reconheci- 
da publicacao. Prova isso a macipa co- 
laboracao dos anunciantes que, como 
se ve, conf iam no exito da revista. 
Juan Jorge Thierer 
S2o Paulo - SP 
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Gostaria de parabeniza-los pelo ex- 
celente ni'vel e qualidade da revista, o 
que demonstra que por detras da mes- 
ma se encontra uma equipe responsa- 
vel e qualificada, proporcionando ar- 
tigos e publicacdes que vem de encon- 
tro as curiosidades, necessidades e an- 
seios de todos aqueles ligados ao fas- 
cinante mundo da microcomputac3o. 
Fredi J. Moser 
Joinville - SC 



Sou leitor dessa - revista desde os 
seus primeiros numeros e so tenho a 
parabenizar a equipe pelo excelente 
trabalho realizado e a evolucao cons- 
tan te da revista. 
Adagenor L. Ribeiro 
Betem - PA 



HP-19C 



Sou proprietdrio de uma calculado- 
ra HP-19C (calculadora cientffica 
programa'vel com memdria constante e 
impressora), adquirida em 1980 nos 
Estados Unidos. Ap6s tres anos de 
bons services, esta* agora defeituosa. 
Inicialmente entrei em contato com a 
fa"brica da HP em Sao Paulo. Esta, 
contudo, n5o me respondeu. Entao 
entrei em contato com um revendedor 
autorizado da HP em Sao Paulo (J. 
Heger &Cia.); este me informou que a 
fibrica nao poderia fazer o conserto 
aqui no Brasil e que eu deveria remeter 
a calculadora aos EEUU. mesmo 
revendedor aproveitou para enviar-me 
o catcHogo de outras calculadoras! 

Pergunto-vos agora: que esp^cie de 
f^brica ^ a HP que, no momento de 
vender seus produtos, af irma em seus 
manuais que da* assistencia tecnica em 
todo o mundo, mas quando esta se faz 
necessa>ia a mesma inexiste. 
Eduardo Schadrack 
Blumenau-SC 

Remetemos seu desabafo para a 
Hewlett Packard, que nos respondeu: 
"A Hewlett Packard, como uma das 
empresas li'deres do mercado mundial 
de eletronica, dedica substancial quan- 
tidade de recursos a pesquisa e desen- 
volvimento de novos produtos, os 
quais sao inicialmente revendidos nos 
Estados Unidos. 

Por razdes mercadol6gicas, estrat6- 
gicas ou mesmo de restricoes locais, 
nem todos os produtos desenvolvidos e 
revendidos nos Estados Unidos sSo 
introduzidos em todos os mais de 70 
paTses onde a HP mantem escrit6rios 
de Vendas e Assistencia Tecnica. 

E" o caso da calculadora HP-19C. 
Este produto nunca foi comercializado 



pela HP do Brasil. Nao dispomos, aqui, 
de pecas de reposicao ou treinamento 
t£cnico especi'fico para proporcionar 
Assistencia Tecnica adequada para este 
modelo de calculadora. Suporte inte- 
gral de Assistencia Tecnica esta" dispo 
nfvel no pafs onde a mesma foi adqui- 
rida. 

Gostarfamos de solicitar, de todo 
modo, que V. Sa. nos contatasse 
diretamente, conforme sua convenien- 
cia, para estudarmos a viabilidade de 
um reparo dentro de condicoes de 
"m$ximo esforco", utilizando os re- 
cursos disponiveis localmente." 
Rubens Stephen Junior 
Gerente de Assistencia Tecnica da 
Hewlett Packard 



SUGESTOES 



Acho a revista de voces muito boa e 
simp£tica. Gostaria, no entanto, de dar 
uma sugestao para melhorar mais e tor- 
na-la mais util para a gente, leitores e 
usua>ios: nao facam os programas em 
letras e numeros tao pequenos, fica 
muito diffcil na hora de digitar. No 
resto, tudo bom. 
Vanderlei P. Souto Jr. 
Botucatu - SP 

Creio nunca ser demais parabeni- 
za-los pelo alto ni'vel e qualidade que 
sua revista nos proporciona. Gostaria, 
contudo, de dar uma sugestao que vi- 
ria a melhorar ainda mais o conteudo 
dessa revista: como sou possuidor de 
uma pequena mdquina programa'vel 
(HP-34C), gostaria que fossem publi- 
cados, na medida do possi'vel, progra- 
mas e/ou mate>ias que atingissem este 
tipo de mdquina, cuja capacidade de 
programacao i muito inferior aos ar- 
tigos publicados nessa revista. 

Penso que essa iniciativa benefi- 
ciaria a um numero grande de "pe- 
quenos" programadores, como eu. 
Paulo Roberto B. Reis 
Rio de Janeiro-RJ 

Estou com voces e n§o abro (so 
abro para ler a revista)! Mas bem que 
voces podiam atender aos pedidos de 
tantos leitores, como eu, que sugerem 
a publicacao de numeros especiais de 
jogos, especialmente para os micros 
compati'veis com o ZX81. 
Jos6 Mcirio Ferreira Borges 
Macei6 - AL 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nos 
sa pauta e procuraremos, na medida do 
possi'vel, viabiliza*-las. 
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Enxadrista expenente. Luciano Nilo de An 
drade ja 4 escrevempata os jornais "Correio da 
Manna". "Data News" e "Ultima Mora" e pa 
ra a revista "Fatos & Fotos" Luciano 6 econo 
mista. trabalhando no Mimst6rio da Farenda. 
no Rio de Janeiro As opinioes e comentirios 
de Luciano Nilo de Andrade. bem como as 
ultimas novidades do Xadrez jogado por com 
putadores. estarao sempre presentes em 
MICRO SISTEMAS 



Micros vs. Macros 



K 



evin O'Connell, perito em Ci- 
bernetica aplicada ao Xadrez, 
preve que dentro de poucos 
anos os microcom putadores superarao 
os computadores de grande porte (os 
macros) neste jogo. Segundo ele, os mi- 
cros tern progredido mais nos ultimos 
anos do que os macros, em virtude do 
esti'mulo comercial que os motiva dire- 
tamente, explicando-se dai' o surgimento 
recente de mais novidades no campo dos 
micros que no dos macros. 

Um acontecimento importante que 
corrobora esta hipotese foram os resul- 
tados obtidos pelos micros e macros 
quando pela primeira vez competiram 
no Open Americano de 1982. Isso cons- 
titute numa prova de fogo para as m2- 
quinas e seus respectivos programas. 

Os dois micros que competiram fo- 
ram o Sensory 9 e o Prestige Elite. Seus 
resultados foram os seguintes: 
Sensory 9 - Venceu jogadores com os 
seguintes Elos: 1791, 1356, 1732, 1358 
e 1660; empatou com um jogador com 
Elo 1781; e perdeu para jogadores com 
os Elos 2139, 1986, 1773, 1820, 1759 e 
1736. Sensory 9 fez, assim, um total 
de 5,5 pontos em 12, tendo seu Elo es- 
timado em 1719. 

Prestige Elite - Venceu jogadores com 
os Elos 2049(!), 1991, 1757, 1763 e 
ainda um jogador sem Elo; empatou 
com dois jogadores, Elos 1988 e 1781; e 
perdeu para os jogadores com Elos 



2142, 1980, 1845, 1863 e 1752. Fez 6 
pontos em 12 possi'veis e teve seu Elo 
estimado em 1869. 

Os dois macros que competiram no 
Open rodavam com os programas Chaos 
e Belle. Chaos, duas vezes vice-cam- 
peao mundial de computadores, fez 6 
pontos em 12 partidas, tendo perdkio 
por tempo em duas partidas. Belle, 
considerado o melhor programa, so dis- 
putou dez rodadas, tendo ganho sete 
partidas (de jogadores com Elos 1730, 
1917, 1909, 2003, 1548, 1715 e 1776) 
e perdido tres (Elos 2033, 1893 e 
1863), tendo seu Elo avaliado em 1989. 

Na modalidade de Xadrez Relampa- 
go, o Belle fez 7,5 pontos em 9 partidas. 
Outros dois programas para macros tam- 
bem concorrendo, o Chess 4.9 e o Gray 
Blitz, fizeram, respectivamente, 6 e 5 
pontos. Prestige Elite, unico micro 
nesta modalidade, fez somente 3 pon- 
tos, embora tenha vencido jogadores de 
Elos 2109, 2092 e 2152! 

Em termos de Xadrez Relampago, os 
Elos das maquinas foram reestimados 
para: 

Belle -2412 
Chess 4.9 - 2202 
Gray Blitz - 2108 
Prestige Elite - 1856 

Aguardemos para ver se, com o tem- 
po a seu favor, o prognostico de O'Con- 
nell esta correto. Para os enxadristas, 
esta e uma profecia fagueira. 



Como ganhar 
sem fazer f orca 



Challenge Fredkin em Schevenin- 
gen, Holanda, e um torneio anual em 
que participam igual numero de jogado- 
res e maquinas com aprc/ximadamente o 
mesmo Elo. O vencedor deste ano, um 
jogador de nome Martinak, teve um due- 
lo incomum com as maquinas. 

Na primeira rodada, o Gray Blitz, 
programa para computadores de grande 
porte, perdeu para Martinak (que tern 
Elo 2097) apos ter apresentado um de- 
feito que consumiu uma hora e meia de 
reparos e o forcou a realizar jogadas a 
um ritmo acelerado, em situacao infe- 
riorizada e que o levou a derrpta. 

Na segunda rodada, Martinak jogou 
com as brancas contra o programa 
Nuchess e limitou-se a repetir a partida 
jogada por outro concorrente, Zaffuto, 
contra o mesmo Nuchess, na primeira 
rodada do torneio, e que levou o progra- 
ma a beijar a lona. 

Em tempo, Martinak yenceu esta 
competicao de quatro rodadas perfazen- 
do 3,5 pontos e embolsando 500 dola- 
res. 

Um exemplo ilustrativo de como, 
sem fazer muito esforco, pode-se derrro- 
tar computadores no Xadrez. Ou nao? 
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Os micros diante dos problemas 
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D I AG RAM A A 

GM Ludek Pachman escreveu a 
respeito desta posigao: — Aqui a vitdria 
e" muito difi'cil. Eu a encontrei at raves 
da triangulaqao em 14 segundos. 

Sensory 9 e o Great Game Machine 
(com o programa Steinitz), em m'vel de 
torneio, nab tiveram dificuldades em 
encontrar as jogadas ganhadoras. 



D I AG RAMA B 

Na ocasiao pensou-se que esta posi- 
cao levava ao empate. padre espanhol 
Fernando Saavedra encontrou a linha 
vitoriosa. programa Steinitz, do Great 
Game Machine, encontrou a continua- 
cao correta mas foi incapaz de veneer 
porque, aparentemente, esta" programa- 
do para promover o peao em dama, e sd. 



Solucao dos Problemas: 
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CURSOS DE ESPECIALIZACAO 
PROFISSIONAL 





MICROCOMPUTADORES 

MICROPROCEJ 

SOFTWARE 

BASIC 
ASSEMBLER 

HARDWARE 

INTERFACES DO 8080/85 

MICROPROCESSADOR Z-80 

MICROPROCESSADORES 8080/85 

LOGICA DIGITAL I e II 
AMPLIFICADORES OPERACIONAIS 

IH» TELEPROCESSAMENTO «B1 

TELEPROCESSAMENTO I - HARDWARE 
TELEPROCESSAMENTO II - SOFTWARE 

■HI^MM BANANA-85flBlBi 
MICROCOMPUTADOR PARA 

DESENVOLVIMENTO DE 

SOFTWARE E HARDWARE 

REVENDEDOR AUTORIZADO 

^m AULAS PRATIC AS COM €■■ 

MICROCOMPUTADORES NACIONAIS 

KITS E LABORATORIOS DE 

ELETR0NICA DIGITAL 
TURM AS COM 20 ALUNOS «■ 
CURSOS FECHADOS PARA EMPRESAS 
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|AV. PRESIDENTE VARGAS 590/ GR. 217 
RIO DE JANEIRO Tel. (021) 233-5239 



Por baixo 
de um bom 
computador 
so pode existir 
uma mesa (\XM$$i 






As Mesas para Terminais H&M sao t3o boas quanto o 
seu computador. Sabe por que? Porque elas sao feitas 
com o mesmo know-how e o mesmo criterio de 
controle, seguranca e precisao, como sao feitos tambem 
os computadores. 

Alem disso, as Mesas para Terminais H&M possuem 
acabamento perfeito, fosfatizado e com fundo plaine. A 
base e de poliuretano na cor grafite e o painel na cor gelo. 
O tampo em todos os modelos e de madeira compensada 
de mogno ou virola, com revestimento de fbrmica fosca 
branca. 



Tudo isso com a qualidade, 
tecnologia e tradicao H&M que 
voce J& conhece, e que o seu 
computador esta esperando para 
conhecer. 
Consulte-nos pelo telefone ou oolicite 
a visita de um representante H&M. 



VSSm 



Filiada a 
ANFORSAI 



<*M|iito M lO'mu 



Representantes em todo o Brasil 
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Faga com que seus programas que contenham sub-rotinas em linguagem de maquina 
funcionem tanto na versao disco como cassete. Pratique ao som de Ain't she sweet. 



Music a, maestro! 



Roberto Quito de Sant'Anna 
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is que um dia voce, feliz propnetano de urn CP-500 
com dois drives, impressora, modem e tudo aquilo a 
que voce tern direito, resolve difundir a sua experien- 
cia e enviar aquele programa espetacular, com duzentas e tan- 
tas hnhas, para pubhcacao em MICRO SISTEMAS. seu pro- 
grama usa uma sub-rotina em linguagem de maquina e, logica- 
mente, a instrucao DEFUSR. Ja imaginou a frustracao de um 
pobre mortal que so dispde de versao cassete, ao receber a 
mensagem de erro L3 (s6 BASIC-DISCO), apos ter passado v*- 
nas horas digitando e sem ter conhecimentos necessinos para 
modificar o seu incrivel programa? 

Saiba, entao, que e possi'vel fazer programas com sub-roti- 
nas em linguagem de maquina que independem da configura- 
cao utihzada. E, embora voce nSo possa saber quern, dentre os 
leitores de MICRO SISTEMAS, possui ou nao disco, o pr6pno 
computador sabe, e voce pode instrui-lo a tomai as providen- 
cias adequadas para cada caso. 

A TEORIA 

Voce ja" sabe que e possi'vel localizar na mem6na a posicSo 
de uma string, atraves de VARPTR. Sabe tamWm que £ possi'- 
vel modificar, na mem6na, o conteudo de qualquer string (veja 
"Conhecendo melhor as strings", MICRO SISTEMAS n9 23). 

A maiona das sub-rotinas em linguagem de maquina sao in- 
troduzidas em um programa em BASIC pela substituicao de 
cada um dos bytes de uma string pelo codigo-objeto corres- 
pondente a uma instrucao em linguagem de maquina. Uma vez 
carregada a sub-rotina (usando READ, POKE e DATA), duas 
providencias sao necessanas para sua execucao: pnmeiro, mfor- 
mar a maquina qual a locahzacSo da sub-rotina na mem6na; 
segundo, a ordem de execucio propnamenie dita, reahzada, 
em qualquer caso, por X =USR(n). 

Quanto a pnmeira providenaa, se o sistema nao dispuser de 
disco, e necessano pokear o endere?o lnicial da localizai^ao da 
sub-rotina na memoria nas posicdes 16526 (byte menos signifi- 



cativo - LSB) e 16527 (byte mais significativo - MSB); se 
existe disco, basta usar a instrucao DEFUSR = L, onde 
L =LSB+ 256 * MSB. Por exemplo, para fornecer o endereco 
inidal da sub-rotina a ser armazenada em X$ , teremos: 



10 X$ = "123*5" 
20 P = VARPTR(X$) 

K(P+2) 
30 POKE 16526, LS 

POKE 16527, MS 

30 L=LS + 256 » HS 

DEEUSfUL 
*0 



LS=PEEK(P+1) : MS=PEE 



'} 



ou 



'} 



(sei disco) 



(com disco) 



Para escrever um programa que mdependa da configuracao, 
falta apenas perguntar ao computador se ele tern ou nao disco. 
Como? Simples: se o sistema nlo tern disco, a posicSo de me- 
m6na 16396 cont^m o valor 201 . Assim, se fizermos: 






10 
20 



30 IF PEEK< 16396) = 201 THEN POKE 16526, 

LS : POKE 16527, MS : GOTO 50 
40 L = 256 * MS + LS : DEFUSR = L 
50 , 
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obteremos exatamente o que buscamos: urn programa univer- 
sal, funcionando diretamente nas versoes disco e cassete. 

A PRATICA 

Para urur o util ao agraddvel, vamos praticar ao som de mu- 
sica. Pnmeiramente nossa orquestra vai afinar os instrumentos 
(e se voce n2o tem ainda como arrancar som de micro, sugiro 
retirar o plug que vai ao remoto do gravador e gravar o seguin- 
te programa numa fita, para posterior reproducao.) 

10 RANDOM 

20 M$ = "12345678901234567890123" 
30 V = VARPTR(M$) : LS = PEEK(V+1) : HS = 
PEEMV + 2) : L = 256 » MS ♦ LS 

40 IF PEEK( 16396) « 201 THEM POKE 16526, 
LS : POKE 16527, MS : GOTO 60 

50 DEFUSR = L + (L> 32767) * 65536 
60 FOR I = L TO L+22 : READ S : POKE I ♦ 
(I > 32767) * 65536, S : NEXT 

70 X = USR(RND(255) ♦ 256 • RND(127)) : G 
0T0 70 

80 DATA 205,127,10,203,36,69,62,1,211,255 
,16,254 

90 DATA 69,62,2,211,255,16,254,37,32,239, 

201 
RUN 

Nao se assuste com as linhas 50 e 60. Embora parecam um 
tanto estranhas, elas apenas venficam se se trata de alguma po- 
sicao de memona acima de 32767; em caso afirmativo, a ex- 
pressfo L (ou I) > 32767 € verdadeira e assume o valor- 1, o 
que resulta em subtrair automaticamente 65536 de L (ou I). 
(Para maiores informacoes. veja a pagina 125 do Manual de 
BASIC da Prol6gica.) 

Finalmente, apos afinada a orquestra, vamos curtir a musi- 
quinha predileta do Dancin' Demon: Ain't she sweet; para tan- 
to,supnma a linha 70 do programa an tenor e acrescente: 

100 READ F : IF F = 999 GOTO 190 
110 IF F < GOSUB 130 : GOTO 100 
120 READ D : X - USR(F + 256 » D) : GOTO 

100 
130 FOR I - 1 TO -F : NEXT : RETURN 
140 DATA 111,80,111,80,120,80,120,80,118, 

120,128,80,111,40 
150 DATA 120,40,111,80,111,80,120,80,120, 

80, 128,120,-20 

MICRO SISTEMAS. setembro/83 



160 DATA 111,40,128,40,94,80,94,80,100,80 

,100,80,111,60 
170 DATA 100,40,111,60,128,40,140,60,150, 

60,150,60,170,55 
180 DATA 170,55,190,80,190,80,999 
190 RESTORE : GOTO 10 



As declaracoes 80 e 90 constituem a sub-rotina em lingua- 
gem de ma'quina propnamente dita, para a qual foi reservado 
um espaco de 23 bytes na linha 20. Cada vez que a funcao 
USR, de argumentos F e D, 6 executada, 6 emitido um torn de 
frequencia F e duracao D, sendo que F pode vanar entre 
(mais grave) e 255 (mais agudo) e D, entre (curto) e 127 
(longo). As declaracOes 100 e 1201eem,alternadamente, valo- 
res de F e D, e a 130 mtroduz uma pequena pausa, quando 
necessario. Com essas informacSes e alguma paciencia, voce 
pode compor suas propnas musicas em seu micro. ■ 



Roberto Quito de Sant'Anne 4 Engenheiro de Telecomunicacoes, for- 
mado pelo Instituto MM tar de Engenharia. Professor da cadeira de In- 
forma"tica da Academia Militar das Agulhas Negras, desde agosto de 
1982. 6 tambe'm colaborador da MICRO-MAXI Computadores e Siste- 
mas, como analista de sistemas. 
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SUPRIMENTOS P/ PROCESSAMENTO DE DADOS 

• FITAS MAGNETICAS 

• DISCOS MAGNETICOS 

• DISKETES (8 e 5 1/4) ORIGINAIS 

• FITAS IMPRESSORAS ORIGINAIS E©&2 

• FITAS IMPRESSORAS NACIONAIS E IMPORT. 

• DATA CARTRIDGE 

• ACESS0RIOS (ETIQUETAS, TAPE SEEL, 
WRAP AROUND CARRETElS, REFLETIVOS) 

CPD COM^RCIO E REPRESENTAQOES LTDA 

• S. P.: R. Ministro Gabriel de Rezende Passos, 382 
fones: 571-3440 / 571-0688 - Sao Paulo - CEP 04521 

• £ C: R. Aracua, 98 - Costa e Silva - Joinvile 
CEP 89200 i 
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Um pequeno programs utilitario para listar as varia'veis de seus programas em BASIC Applesoft. 
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Rastreando variaveis 



Rudolf Horner Junior 



Si 



uando estamos escrevendo um 
programa de grande dimensao 
em BASIC, e" comum a dificul- 
dade em se identificar as variaveis que }£ 
foram usadas e o que exatamente sigrufi- 
cam. 

No caso da familia Apple II (Micro- 
engenho, Unitron, Maxxi, Apple BR) o 
problema do controle de vanaveis pode 
se acentuar devido ao fato de que, nes- 
tas mdquinas, apenas os dois primeiros 
caracteres do nome da vanavel sao con- 
siderados em sua identificacao. (No 
BASIC Applesoft, s6 sao reservados dois 
bytes para o registro do nome de uma 
vanavel, compreendendo assim somente 
as duas letras ou numeros miciais do 
nome). 

Isto sigrufica que os nomes de varia- 
veis FATO e FACA fazem referenda 
ao mesmo valor, nao importando que se- 
jam palavras diferentes. Qualquer ldenti- 
ficador que pnncipie com as letras FA 
representara\ para o computador, o mes- 
mo valor (mteiro, real ou alfanume'nco), 
nac havendo diferenca devido as demais 
letras do identificador. 

AJem disso, existem tres tipos dife- 
rentes de varia'veis do tipo simples em 
Applesoft, que sao: 

1 — Variaveis inteiras - Sao variaveis 
que so admitem niimeros mteiros entre 
-32767 e 32767. (Em sua codificacao 
sao usados 2 bytes. Assim, como cada 
byte pode assumir 256 estados diferen- 
tes, as variaveis inteiras podem ter 256 
vezes 256 (= 65536) valores distintos. 
Como queremos ter numeros positivos 
e negativos, teremos 65536/2=32767 va- 



lores). Elas sao diferenciadas das demais 
pelo simbolo % que segue o nome da va- 
navel. Exemplos: A%, VA%, HOJE%. 

2 - Variaveis reais - Sao variaveis que 
admitem numeros rears. Assumem qual- 
quer valor entre -9.99999999E37 e 
9.99999999E37 e sao codificadas com 
cinco bytes: um para o expoente e qua- 
tro para a mantissa. Exemplos: A, VA, 
HOJE. 

3 — Variaveis string - Sao variaveis alfa- 
nume'ncas e podem armazenar cadeias 
de a 255 caracteres. Elas sao registra- 
das com tres bytes: um para a quantida- 
de de caracteres encadeados e dois para 
a posicao de memdna onde esti efetiva- 
mente registrada a cadeia de caracteres 
(apontador para a posicao). Exemplos: 
A$, VA$, HOJES. (£ importante notar 
que as vanaveis A%, A e A$ sao vani- 
veis diferentes.) 

No momento em que uma nova vana- 
vel simples qualquer 6 cnada ou referen- 
ciada durante a execucao de um progra- 
ma, o Interpretador BASIC usa sete 
bytes da mem6na do computador para 
defim-la. 

Para o caso de vanavel real, dois 
bytes sao para seu nome e cinco para 
seu valor. Para as variaveis inteiras, sao 
dois bytes para o nome e dois para seu 
valor, ficando os tres restantes sem uso. 
E finalmente, para vanaveis string, dois 
bytes definem o nome da vanavel, um 
byte define o numero de caracteres que 
estao armazenados nesta vanavel e mais 
dois bytes indicam o endereco de me- 
m6na onde esti registrada a sequencia 



de caracteres conespondente. Os dois 
ultimos bytes ficam sem uso. 

Existe apenas um detalhe: para saber 
depois se vanavel € inteira, real ou string. 
o Interpretador registra os dois bytes de 
seu nome de uma maneira bastante 
especial. No Apple II, a tabela de ASCII 
i duphcada, isto e, cada letra pode ser 
especificada por dois numeros. A letra 
A, por exemplo, pode ser codificada 
com o numero 65 ou com o endereco 
1 93. Para as vaniveis inteiras, no regis- 
tro de seu nome sSo usados os valores da 
tabela que sao maiores que 127; nas va- 
naveis string, usa-se o pnmeiro byte da 
pnmeira tabela e o segundo byte da 
segunda tabela. Os outros dois modos de 
codificacao existentes podem ser usados 
no registro de uma vanavel do tipo real. 

Vejamos um exemplo: considere o 
caso de registrar o nome das vanaveis 
AA, AA% e AA$ nos dois bytes da lista 
de identificadores. Interpretador agira 
conforme o mostrado na figura 1 e estes 
valores sao registrados em sequencia de 
sua defirucao no programa em enderecos 
que funcionam assim como uma lista de 
vanaveis. Quando o programador faz re- 
ferenda a um identificador, o Interpre- 
tador vai a esta lista e procura o identifi- 
cador referenciado. Quando o encontra, 
devolve o seu valor conespondente. 

Esta lista de vanaveis comeca em um 
endereco de memona que i indicado 
pelos bytes $69 e $6A (105 e 106 em 
decimal), tratando-se da lista de vana- 
veis simples. 

No caso das vanaveis enderecadas 
(arrays), o processo de armazenamento e" 
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tipo 


NOME 


10 BYTE 


2" BYTE 


. INTEIRA 


AA% 


193 


193 


STRING 


AAS 


65 


193 


REAL 


AA 


65 65 

ou 

193 65 



Figura I 

um pouco mais comphcado. Desta vez 
nao se pode arbitrar simplesmente que 
serao usados apenas sete bytes para 
registrar todas as variaveis porque elas 
podem ter dimensdes variaveis. Fica a 
cnteno do programador defirur o nume- 
ro de dimensoes e tambem o numero de 
vanaveis de cada dimensao. 

Neste caso, gastam-se dois bytes para 
definir o nome da vanavel, mais dois 
que apontam para a vanavel enderecada 
seguinte, mais um que define o numero 
de dimensoes da vanavel, mais um par 
de bytes para cada uma das dimensoes 
(define o tamanho de cada dimensao) e, 
finalmente, cinco bytes para cada varia- 
vel real, dois para cada inteira e tres 
bytes para definir o tamanho e posicao, 
no caso de vanavel string. 

A lista de vandveis enderecadas prin- 
cipia no endereco de mem6na aponta- 
do pelos bytes S6B e S6C (107 e 108 
em decimal). £ a lista das vanaveis ende- 
recadas. 

PROGRAMA 

Uma vez feita esta exposicao, 
poderemos entender melhor o pro- 
grama utilitano que apresentamos ao 
final do texto. Sua funcao e" muito sim- 
ples: rastrear as listas de vanaveis mos- 
trando ao programador os nomes e tipos 
de todas as vanaveis que foram usadas 
no programa em BASIC que esta sendo 
escnto. 

No seu funcionamento sSo usadas 
tres palavras: RJ, RH e RJS(O). pro- 
grama percone a lista ate" encontrar suas 
propnas vanaveis, podendo entao encer- 
rar a execucao, uma vez que a lista che- 
gou ao fim. 

Existem duas partes bem defuudas 
do funcionamento do programa. Na pn- 
meira, usando os apontadores dos bytes 
105 e 106, de vanaveis simples, ele mos- 
tra todas as vandveis simples usadas ate" 
aquele momento no programa. Na se- 
gunda parte (com o apontador dos bytes 
107 e 108, lista de vanaveis endereca- 
das) ele faz uma lista de vanaveis ende- 
recadas com o nome, tipo, numero de 



dimensoes e o tamanho de cada uma das 
dimensoes de cada vanavel enderecada 
dimensionada ou usada no programa 
que se pretende rastrear. 

Toda vez que voce tiver um programa 
qualquer e desejar ver as vanaveis utili- 
zadas em sua execucao apos o termino 
de seu processamento, basta intercalar 
nele o programa utilitano proposto nes- 
te artigo. Apos reahzada a execucao des- 
se programa, o utilitano entrara em fun- 
cionamento e, lendo as listas de vanaveis 
constantes na mem6na do computador. 
fara uma lista de todas as vanaveis que 
chegaram efetivamente a ser utilizadas 
durante a execucao. 

Esta intercalacao podera ser feita de 
duas maneiras: com o programa remune- 
rador (RENUMBER), vendido junta- 
mente com o propno equipamento, ou 
atraves da digitacao do utilitano logo 
apos o final da numeracao do programa. 

Cabem amda duas observacSes: 

- Nao deverao ser usadas em seu pro- 
grama as vanaveis RJ, RH ou RJ$(0), 
pois poderao ser confundidas com as va- 
naveis do programa utilitano. 

- As vanaveis que - apesar de consta- 
rem de seu programa - nao tenham suas 
definicoes efetivamente executadas nao 
serao hstadas. 

Apos a execucao de seu programa, a 
tela sera limpa e serao apresentadas uu- 



cialmente todas as vanaveis simples usa- 
das em seu programa e seu tipo corres- 
pondente (real, inteira ou string). 

Em seguida, serao apresentadas as va- 
naveis enderecadas que foram usadas. 
seus tipos. numeros de dimensoes e ta- 
manho de cada dimensao. (Lembre-se 
que vandveis enderecadas que nao te- 
nham sido dimensionadas com o coman- 
do DIM assumem uma dimensao com 
enderecos que podem ir de zero a dez. 
ou seja, onze vanaveis). 

Feitas as listas. a execucao terminara 
na linha 150, ou noutra correspondente. 
apos alguma eventual remuneracao para 
que se fizesse a inter calacao. 

O utilitdno tambe"m podera ser utili- 
zado como sub-rotma de um outro pro- 
grama. Para isso, bastara que o END si- 
tuado a lmha 150 seja substituido por 
um RETURN e que em seu programa 
voce faca um GOSUB para a linha lmcial 
do programa utilitano. Neste caso. o uti- 
litano so hstara as vanaveis que foram 
usadas antenormente ao comando 
GOSUB que comecou a executa-lo. 



Rudolf Horner Junior cursa Ciincia da Com- 
putacao na Unicamp e 6 sdcio da Potencial 
Software, firma que produz programas espe- 
ciais para microcomputadores em Londrina, 
PR. 
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HOME : NORMAL 



SPEED* 



TEXT 
233 
20 DIM RJ»(0> 

30 PRINT "SIMBOLOGIAi"! PRINT I PRINT 
"INTEIRAS C/.) i PALAVRAS (•) 
I REAIS ( >" 
40 PRINT t PRINT i PRINT "LISTA 
DE VARIAVEIS SIMPLES!"! POKE 
34.8! HOME 
30 RJ » PEEK (103) ♦ 256 » PEEK 
(106)! REM APONTADOR PARA V 
ARIAVEIS SIMPLES 
60 RH » 

70 IF PEEK (RJ) ■ ASC ("R"> AND 
PEEK (RJ ♦ 1) ■ ASC ("J") TH 
GOTO UOi REM ENCONTRADO 
FINAL DA LISTA DE VARIAVEIS 

80 60SUB 210! PRINT 
90 RJ - RJ ♦ 7! REM TRANSFERS 
APONTADOR PARA UMA OUTRA VAR 

IAVEL SIMPLES 
lOO GOTO 70 
110 PRINT I POKE 49168, Oi PRINT 

"PRESS I ONE UMA TECLA!"|i GET 

RJ»(0) 
120 POKE 34, 4i HOME I PRINT "LIS 

TA DE VARIAVEIS INDEXADASl"! 
PRINT 1 PRINT "TIPO NOM 

E N'DIM DIMENSOES" 
130 POKE 34.9i HOME 
140 RJ - PEEK (107) ♦ 236 t PEEK 



•108)1 REM APONTADOR PARA V 

ARIAVEIS ENDERECADAS 

IF PEEK (RJ) - ASC ("R") AND 

PEEK (RJ ♦ 1) - ASC ("J") ♦ 
128 THEN END 

GOSUB 210! PRINT TAB < 17) | PEEK 
(RJ ♦ 4) | TAB( 23) | 
FOR RH - PEEK (RJ ♦ 4) TO 1 

STEP - l! PRINT 236 * PEEK 
(RJ + 3 ♦ 2 » RH) ♦ PEEK (R 
J ♦ 4 ♦ 2 t RH) | " "| I NEXT 



180 


PRINT 


190 


RJ - RJ ♦ PEEK (RJ ♦ 2) ♦ 23 




6 • PEEK (RJ ♦ 3)1 REM TRA 


:n 


NFERE APONTADOR PARA A PRO 




XI MA VARIAVEL INDEX ADA 


200 


GOTO ISO 


210 


IF PEEK (RJ) > 127 AND PEEK 




(RJ ♦ 1) > 127 THEN PRINT " 




INTEIRA"! iRJt-(O) - "X"! GOTO 




240! REM VARIAVEL INTEIRA 


220 


IF PEEK (RJ) < 128 AND PEEK 




(RJ ♦ 1) > 127 THEN PRINT " 




PALAVRA"; iRJ«(0> « "»"! GOTO 




2401 REM VARIAVEL "STRING" 




(PALAVRA) 


230 


PRINT "REAL"! «RJ«(0) » " " I REM 




VARIAVEL REAL 


240 


PRINT TAB( 11)! CHR« ( PEEK 




(RJ))! CHR« ( PEEK (RJ ♦ 1>> 




|RJ«(0)l 


2SO 


RETURN 



£ 



dBASE 




Sfatfona Reuiriawl 
Pan Gerenaamenlo De 

Ban«> De Dados 
— CPM Assembler - 



CURSOS PARA EXECUTIVOS, MEDICOS E ADVOGADOS! 

Voce pode ter um Dominio total de seus Dados. * Criar e Gerenciar Arquivos. * Fazer todos os possf- 
veis Relatbrios e Pesquisas com base nos Arquivos. * Treinamento de 16 hs. em MICROS. Caso vo- 
ce nao tenha MICRO, o curso Ihe dara condigoes de decidir com base em fatos. 

dBMICRO . AV. PROFESSOR ALFONSO BOVERO, 218 - TEL.: 263-0711 
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Uma ana Use dos me'todos para o calculo de di'gitos verificadores 
e a apresentacao do algoritmo do mddulo 1 1. 



Digitos Verificadores 



Eraldo Souza Rocha 



N"| a area de processamento de da- 
dos torna-se necessano que de- 
terminados campos nuirWricos 

que s2o considerados como chaves para 
acesso a determinadas informacGes — e 
cujos dados devem ser perfeitamente 
confiaveis - contam com um recurso 
que tome a identificacffo como sendo 
particular para cada registro gravado ou 
lido. 

controle de valores nume'ricos 
usados em computac^O 6 importante 
quando estes valores sfo usados para a 
identificacSo individualizada da infor- 
macdb. Como exemplo, podemos citar o 
caso mais usual, que d o do CPF, que 
identifica todos os contribuintes do Im- 
posto de Renda, cujos codigos represen- 
tam uma funcSo univoca entre o contri- 
buinte e as informacOes a ele correspon- 
dentes. mesmo acontece com a ma- 
tri'cula de alunos de uma escola, os codi- 
gos de cartoes de crddito e tudo que ve- 
nha a ter a caracteristica de funcSb uni- 
voca. 

Apesar de existirem muitos mdto- 
dos para o calculo de digitos verificado- 
res, alguns s3o falhos. Deste modo, de- 
vemos ter sempre a preocupacffo de usar 
aquele que apresente a melhor eficiencia 
quanto aos seguintes itens: 

• transcricao: falhas que ocorrem 
quando se transcreve um valor. Ex: 
transcrever-se 1 por 7, 2 por 5 etc.; 

• transposicao simples: quando os valo- 



res sSo escritos corretamente, s6 que 
com numeros trocados entre si. Ex: 
1234 ao Hive's de 2134; 

• transposicao dupla: quando a troca 
de numeros ocorre entre colunas. Ex: 
21963 ao Hive's de 26913; 

• outras transposicoes; 

• randomico : quando ocorre a combina- 
c2o de dois ou mais erros dos tipos ja 
mencionados. 

ANALISE DOS METODOS 

Dos van os m6duJos de calculos de di- 
gitos verificadores, os mais usados sa"o os 
m6dulos 1 e 11. Em cada um deles usa- 
mos um peso para o cilculo, que e" apli- 
cado posicionalmente a cada algansmo 
que compoe o valor do qual se deseja 
obter o digito venficador. 

Os me'todos, em sua maioria, usam 
pesos e m6dulos. Peso 6 o multiplicador 
de cada digito do numero de codigo pri- 
mitivo que se emprega para se obter o 
produto. Mddulo 6 o numero que 6 usa- 
do para dividir a soma dos produtos re- 
sultantes da operacSo anterior para se 
obter o resto. 

Em estudo feito com a aplicacflo de 
vdrios me'todos para o cdlculo de digitos 
verificadores foi encontrada a eficiencia 
de cada me'todo com base na detectacSo 
dos erros, de acordo com os erros que 
sfo inseridos durante o processamento. 
resultado desse trabalho esti na figura 



1 , onde pode ser visto o me'todo mais 
eficiente, que 6 o mddulo 1 1. A figura 2 
torna mais clara ainda esta afirmaca"o. 

O ALGORrTMO 

Desenvolvemos, a seguir, o algoritmo 
do m6dulo 1 1 : 

INICIO 

RECEBE valor 
RECEBE posifoes 
ll" posifoes 
j:* 2 

ENQUANTO i ^ zero REPETIR 
SE j = 7 

EMTJto 

j ' 1 
TOTAL := TOTAL + VALOR (i) * j 
j:= j + 1 
i:» i - 1 
QUOCIENTE:- total /ll 
resto := total - (11 * quoclente) 
SE resto ■ 
ENTAO 

digito := 5 
SE resto = 10 
entSo 

digito := 5 
SENAO 

digito :- 11 - resto 



RETORNA valor e digito 



FIM 
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M6DUL0S 


AMPLITUDE 
DOS PESOS 
POSSfVEIS 


COMPRIMENTO 

MAXIMO DE 

NUMERO SEM 

PESOS 

REPETITIVOS 


PESOS 
UTILIZADOS 


PERCENTAGEM DE ERROS DETECTADOS 


TRANS- 
CRigAO 


TRANS- 

POSigAO 

SIMPLES 


TRANS- 

posigAo 

DUPLA 


OUTRAS 

TRANSPO 

SigOES 


rand6- 

MICOS 


10 


1-9 


8 


1-2-1-2-1 

1-3-1-3-1 

7-6-5-4-3-2 

9-8-7-4-3-2 

1-3-7-1-3-7 


100 

100 
87,0 
94,4 
100 


97,8 

88,9 

100 

100 

88,9 


Zero 
Zero 
88,9 
88,9 
88,9 


48,9 
44,5 
88,9 

74,1 
44,4 


90,0 
90,0 
90,0 
90,0 
90,0 


11 


1-10 


9 


10-9-8. . .2 
1-2-4-8-16 etc 


100 
100 


100 
100 


100 
100 


100 
100 


90,9 
99,9 


13 


1-12 


1 1 


Qualquer 


100 


100 


100 


100 


92,3 


17 


1-16 


15 


Qualquer 


100 


100 


100 


100 


94, 1 


19 


1-18 


17 


Qualquer 


100 


100 


100 


100 


94,7 


23 


1-22 


21 


Qualquer 


100 


100 


100 


100 


95,6 


27 


1-26 


25 


Qualquer 


100 


100 


100 


100 


96,3 


31 


1-30 


29 


Qualquer 


100 


100 


100 


100 


96,8 


37 


1-36 


35 


Qualquer 


100 


100 


100 


100 


97,3 



Figura 1 



Note que este algontmo leva em 
considerate) que nao ocorram repeti- 
coes de pesos tornando, assim, mais pre- 
ciso e eficaz o seu csilculo, evitando 
erros. 

consideracOes 

Um outro algontmo bastante usado e" 
o de se somar todos os valores absolutos 
dos algarismos que o compdem para 
obter o digito venficador a partir deste 
valor. Este tambdm i um algontmo de- 
ficiente, uma vez que a insercSo de zeros 
no campo nume'rico dani o mesmo digi- 
to venficador, ocasionando erro. 

Como i de importanaa vital que 
esses digitos conespondam a um e so- 
mente um valor nume'rico valido, um 
processo em real time seria mais eficien- 
te e com pouco aciimulo de enos que 
necessitem uma conference a postenon. 

Note tambe'm que a utilizacfo de pe- 
sos aplicados a cada algansmo que com- 
poe o campo nume'neo do qual se deseja 
obter o digito verificador 6 de grande 
importanaa, uma vez que desta forma 
eliminaremos a possibilidade de ocone- 
rem os enos de transenc^o, transposicSo 
simples e dupla, randomico etc. 

Se compararmos o algontmo do m6- 
dulo 1 1 com o do modulo 10, que usual- 
mente conadera pesos 1 para valores de 
posicSo impar e 2 para as posicOes pa- 
res, podemos ver, atrave's da figura 2, 



TIPOS DE ERRO 


NO DE 
ERROS 


EFICI- 
ENCIA 


ERROS 
DETECTADOS 


ERROS NAO 
DETECTADOS 


TRANSCRigAO 
TRANSP. SIMPLES 
TRANSP.DUPLA 
RANDdMICO 


860 
80 
10 
50 


100% 

100% 

100% 

91% 


860 
80 
10 
45 





5 


TOTAL 


1000 




995 


5 


Numero de registros = 100.000 
Numero de erros = 1000 = 1% 

Eficiencia = 5 erros nao detectados em 100.000 registros 
= 99,995% de cobertura de erros 



Figura 2 

que a eficiencia deste segundo € bastan- 
te precdna. 

Alguns sistemas de computacSo usam 
o m6dulo 10 que, como jd foi visto, na"o 
e o metodo mais seguro para detectar os 
enos que podem ser cometidos durante 
o processamento. E se considerarmos 
tambe'm que o processo utilizado pelos 
microcomputadores 6 interativo, esses 
enos podem nao ser descobertos logo, e 
sim somente apos um longo processo }£ 
ter sido concluido, o que acanetara uma 
grande perda de tempo. 

Conduindo, nSo nos colocamos con- 
tranos a u tilizacao do mod ulo 1 para o 



calculo de digitos venficadores, apesar 
de n5o o considerarmos um bom m6du- 
lo; somos, sim, contrdrios aos algoritmos 
que tern sido utilizados pelas suas preca- 
nas eficiencias quanto a detectacfo de 
enos. ■ 



Era/do Souza Rocha 6 mestre em Informa'tica, 
formado pela PUC, graduado em Matema'tica 
pela Universidade Federal do Espirito Santo e 
Analista de Sistemas pelo NPD da mesma Uni- 
versidade. 
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ICRO PROCESS 

COMPUTADORES LTDA. 



• Microcompu tad ores: 
TK-83/TK-85/CP-200/CP-300/CP-500 

• Micro Sistemas AIKO/CCE 
(ultimos lancamentos) 

• Calculadoras Sanyo/Cassio 

• Fitas, disketes - Dysan e Verbatin 

• Monitores, impressoras, disk -drives, etc. 

• Programas (f ita/diskete) para todos os 
computadores 

• Contabilidade - aplicativos - jogos, etc. 
- Personalizacao de programas para firmas e 
profissionais liberais. 

• Jogos Odissey / Dactari 

• Manutencao e transf ormacao de televisores 

• Mesas especiais para computadores 

• Revistas e Publicacdes Tecnicas 
Despachamos por nossa conta via Varig 
tel.: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 
Sao Paulo 

••• ESTACIONAMENTO PARA CLIENTES ### 



CHEGA DE 
ESQUENJACAO 



"* 



fr 






»**rs±£r 



Software 

pronto para ser usado. 

Programas de uso pessoal ou estritamente profissional; 

Cadastros, Banco de Dados, Locacoes, Contabilidade, Contas a Pagar 

e Receber, Editor de Texto, Conta Bancaria, Mala Direta, Visicalc, 

Controle de Estoque. 

E para o programador; Editor Assembler, Compiladores Basic e Cobol... 

... e jogos, que ninguem e de ferro. 

Todos em portugues, gravados em cassette ou diskette, com manual do 

usuario, extremamente praticos. 

Estamos ao seu alcance. 

Confira. Solkritando por telefone ou no revendedor de sua cidade, relacao 

de programas disponiveis. 

mOTlK micro inform.it ica ltda. 
R. Augusta, 2690 2." andar Loja 318 
Tel. (011)852 2958 cep 01412 SP £ 

^ 

monk, g| > :i *■■ 



o software que faz voce ficar 
feliz por ter urn micro. 








ftOGEMO COST* HUE IRA 



COMPUTES, 
GRILO. 1 



PEREIRA, 

Rogdrio Costa, 

Computes, Grilo! 

Computador 

para todas 

as idades, 

Livros T6cnicos 

e Cienti'ficos 

Editors, 

Cr$ 2.600,00 (Jul/83). 




X •>'"• •-■ m Jl :IBI 



Computes Grilo deve ser encarado como uma incur- 
s§o no mundo do computador que produz alguns esclare- 
cimentos de ordem t^cnica ^queles que nenhum conheci- 
mento tern sobre computacSo. 

Pretendendo atingir o universo dos jovens acima de 
dez anos, sem experiencia anterior em computacao e que 
ja tenham completado ao menos a 4? se>ie do primeiro 
grau, a abordagem do tema 6 por vezes simplista, inclusi- 
ve na forma de apresentacao dos conceitos. que n§o 
exclui o seu uso por qualquer pessoa que queira receber 
uma nocao inicial sobre computadores. 

Segundo o autor, o objetivo principal do livro 6 dar 
ao leitor uma base ao mesmo tempo conceitual e pr£tica 
que estimule de forma expli'cita o desenvolvimento do 
racioefhio logico, e facilite, no futuro, uma inevitdvel in- 
teracao com os computadores. 

O estudante n§o precisa ter maiores conhecimentos 
sobre a linguagem BASIC para ter acesso ao livro, mas 
deve ter a sua disposicao um manual de referencia para 
eventuais consultas. Igualmente, nao 6 necess^rio que ele 
conheca o computador com que vai operar, mas certa- 
merte vai necessitar de orientacao previa sobre como 
usa , por exemplo, o video e o teclado. 

A linguagem BASIC foi adotada da maneira mais 
simples e dida"tica possi'vel. Mas o autor afirma que dife- 
rencas pouoo significativas entre comandos e instrupoes 
BASIC usadas no livro e aquelas que devem ser usadas 
em equipamentos especi'ficos, "drficilmente afetarao o 
uso deste material". 

O livro esta - d ividido em duas partes. A primeira parte, 
denominada de "programacao", compreende explicacdes 
sobre o computador e sua utilidade. Ja' a segunda parte 
mostra como o computador 6 empregado na pr£tica, ten- 
do como exemplo um sistema computacional utilizado 
por uma f^brica de autom6veis. 
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Seduzido e abandonado. 



Esta e a historia do cavaJheiro que comprou 

um microcomputador que ia resolver todos 

os problemas da sua empresa. 

O precinho era bom e a conversa do 

vendedor, atraente. Poucos dias depois ele 

descobriu que o equipamento nao resolvia 

todos os problemas (pelo contrario, criava 

alguns novos) e pior de tudo, ao voltar a loja 

onde tinha comprado, percebeu que ninguem 

entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 

seduzido e abandonado. Mas nem tudo esta 

perdido: basta consultar a 

Micros hop antes de comprar um 

microcomputador. 

A Microshop ouve antes de falar. 

Micros sao formidaveis, desde que sejam 
recomendados exatamente para as suas 
necessidades. 



Porisso nos fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
tratamento das informacoes para podermos 
acelerar o processo de tomada de decisoes. 
Nos achamos que quanto mais soubermos 
sobre o seu problema, mais facil e completa 
sera a nossa solucao. 

A Microshop da o pin ides sinceras. 

Trabalhamos com todas as marcas e modelos 
importantes e nao temos interesse em 
"empurrar" esta ou aquela marca. Assim, 
vocS tern a certeza de receber 
sempre um opiniao independente. 

A Microshop resolve mesmo. 

Ao inves de um simples balconista bem- 
intencionado, nos atendemos voce com gente 
formada em Computer Science na 
Universidade de Nova York. 



Issoquedizer orientacao 
inteligente e correta na escolha do 
software mais adequado (tambem 
desenvolvemos programas especificos para as 
suas necessidades). Significa tambem colocar 
a sua disposicao nossa longa experiencia com 
profissionais liberals, empresas de pequeno 
porte e multinacionais. E mais: damos 
treinamento completo na utilizacao dos 
micros e softwares. 

Venha conversar conosco. Nos podemos lhe 
seduzir, mas nao vamos nunca lhe abandonar. 




A loja dos micros inteligent 



Sao Paulo: Al. Lorena, 652 - CEP. 01424 -Tels: (01 1) 282.2105 - 852.5603. 
Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 CEP. 50.000 -Tel.: (081) 326.1525 - Boa Viagem . 



MOSTRA DE TECNOLOGIA 

A segunda Exposigao de Tecnologia 
em Computacao — Extec, realizada pa- 
ralelamente ao III Congresso da Socieda- 
de Brasileira de Computacao. no final de 
julho em Campinas. Sao Paulo, mostrou 
em seus estandes o que instituigoes de 
ensino e pesquisa de todo o pais estao 
desenvolvendo nessa area. A Universi- 
dade Federal de Pernambuco. por exem- 
plo. apresentou um sistema para desen- 
volvimento com 8 Kbytes de memoria 
RAM e 5 Kbytes de EPROM. que utiliza 
memoria virtual, chegando a compilar 
programas de ate 256 Kbytes. A Universi- 
dade pernambucana mostrou tambem o 
sistema operacional FILIA versao 1.4. 
que serve para a manutencao de arqui- 
vos em disco flexivel. organizados em 
um diretorio com ate 104 entradas em 
cada disquete; e um terminal de video 
com teclado standard e pena otica 

Ja o Laboratorio de Sistemas Digi- 
tals da Escola Politecnica da USP mos- 
trou o microcomputador pessoal JDM, 
que tern CPU com microprocessador 
8085. 16 Kbytes de EPROM e 16 Kbytes 
de memoria RAM. Atualmente esta sendo 
desenvolvido no laboratorio uma expan- 
sao de memoria RAM para 64 Kbytes. 

No setor de empresas destacou-se o 
terminal de video grafico colorido. desen- 
volvido pela Scopus por encomenda da 
Embratel O video tern resolugao de 240 
> 320 pontos e utiliza simultaneamente 
8 cores na tela, selecionadas de um con- 
)unto de 64. O terminal possui recursos 
de zoom — que permitem ampliar a ma- 
gem em ate 16 vezes — e possibility a 
movimentacao horizontal e vertical da 
tela atraves da capacidade de panning 
dentro da memoria grafica. 

NOVA DIRETORIA 
NA ASSESPRO 

A Assespro-Nacional. Associagao 
Brasileira das Empresas de Servigos de 
Informatica. elegeu a sua nova diretoria 
para o periodo 83/84 Na Diretoria-Exe- 
cutiva foi mantido Jose Maria T. C So- 
brinho na presidencia. sendo os demais 
cargos preenchidos por Mauro do Valle 
(Vice-Presidente), Jorge Araujo (Diretor- 
Secretano) e Haroldo Duarte (Diretor- 
Financeiro). A Diretoria Tecnica ficou as- 
sim constituida: Francisco Ramalho (Soft- 
ware). Alberto Custodio (Servigos). Edu- 
ardo Guy de Manuel (Treinamento). Os- 
car B. Miranda (Recursos Humanos) e 
Jose Claudio de Oliveira (Atividades Go- 
vernamentais). Foi criada ainda uma As- 
sessoria Especial composta por Antonio 
Barrio Junior (Desenvolvimento de Mer- 
cado). Nilton Trama (Desenvolvimento In- 
terno). Roberto Augusto da S. Araujo 
(Codigo de Etica). Paulo Kleber Pereira 
(Divulgagao Institucional) e Mauro Barto- 
lomeu Sebben (Coordenagao) 



UMA IMPRESSORA 
PARA DOIS MICROS 

A loja Microshop de Sao Paulo esta 
langando um chaveamento eletronico que 
possibilita a ligagao de dois microcom- 
putadores a uma mesma impressora. Tra- 
ta-se de um multiplexador que seleciona 
qual dos micros ira transmitir para a 
impressora. O novo chaveamento e adap- 
tavel a qualquer micro com interface pa- 
ralela padrao Centronics e seu prego e 
de 115 ORTN's. Este equipamento e en- 
contrado com exclusividade nas lojas 
Microshop 

MANUTENQAO 

A Sistema Ltda.. do Rio de Janeiro, 
esta dando manutencao para compu- 
tadores Apple, TRS-80 (modelos I, II. Ill e 
Color), IBM PC. Sinclair (ZX-80. ZX-81). 
Microdigital (TK 82-C e TK 85). Spectrum. 
Microegenho. Unitron (AP II), Polymax 
(Maxxi), Kemitron (Naja). Digitus (DGT- 
100) e toda a linha da Prologica. 

Os contratos podem ser de duas mo- 
dalidades: manutencao preventiva men- 
sal ou assistencia tecnica a panes even- 
tuais. O orgamento e sem compromisso 
e gratuito. diz a empresa. quando o clien- 
te estiver localizado nocentro da cidade. 




EXPORTANDO 
TECNOLOGIA 

A Medidata Informatica e Tecnologia 
S.A. firmou contrato de exportagao de 
tecnologia com a Nixdorf Computer, A 
G.. da Alemanha Ocidental. um dos 15 
maiores fabricantes de computadoresdo 
mundo. O contrato da direito a Nixdorf 
de comercializar. principalmente nosEs- 
tados Unidos e Europa, o software basi- 
co MUMPS desenvolvido pela Medidata 
A empresa brasileira sera remunerada 
sob a forma de royalties, na base de uma 
porcentagem por equipamento vendido 
pela Nixdorf que. dependendo do volu- 
me de vendas. podera significar de USS 1 
milhao a USS 3 milhoes ao longo de 3 a 
4 anos 



O COMPUTADOR E O GRANDE PUBLICO 



Afora os segmentos mais informa- 
dos a respeito, o computador ainda e 
objeto de desconhecimento e temor para 
a maior parte da sociedade brasileira. 
Esse fato foi constatado. pelo menos em 
Sao Paulo, pela agencia de publicidade 
Alcantara Machado, Perscinoto Comuni- 
cagoes Ltda., na pesquisa O Compu- 
tador e Voce, realizada no ultimo mes de 
julho. A pesquisa. feita atraves de entre- 
vistas domiciliares em 30 bairros da capi- 
tal paulistana. abrangeu uma amostra de 
400 pessoas divididas proporcionalmente 
entre homens e mulheres das classes A/B 
e C e duas faixas de idade, de 20 a 29 
anos e de 30 a 45 anos. e chegou a algu- 
mas conclusoes nteressantes. 

Provavelmente em virtude dos tem- 
pos dificeis que a economia brasileira 
vive hoje, duas das preocupagoes princi- 
pals manifestadas pelos entrevistados re- 
ferem-se aos problemas de emprego e 
financeiro. Do universo consultado. 59% 
acredita que o computador vai diminuir 
as oportunidades de emprego. enquanto 
que a maioria das pessoas que gostanam 
de comprar uma dessas maquinas pen- 
sam em aplica-las em controle de orga- 
mento. contabilidade caseira e contas a 



pagar A essas aphcacoes seguiram-se 
as de ensino. lazer (especialmente logos), 
usos pessoais tipo agenda e necessida- 
des de trabalho 

Tambem revelou-se um desconheci- 
mento quase total dos entrevistados em 
relagao ao que e o computador e para 
que serve Praticamente ninguem sabia 
que o Brasil \a fabnca computadores e 
mesmo entre as pessoas que demonstra- 
ram mteresse em comprar um. houve 
respostas bastante estapafurdias para 
justificar esse deseio. tats como fazer a 
hmpeza da casa . computar as ideias 
das pessoas . computar minhas partes 
sensiveis e nao sensiveis e saber se as 
pessoas da famiha estao com o nome 
sujo 

Das 400 pessoas que responderam a 
pesquisa, menos de 0.5% ja possuiam 
computador em casa. 35% gostanam de 
ter. 8% nao sabiam e 57% nao estavam 
interessadas em comprar um compu- 
tador. Com base na pesquisa. a Alcan- 
tara Machado conclui que havera r,e- 
cessidade de um amplo programa de 
ensino e relacoes publcas para o com- 
putador se tornar um ( . . .) produtodese- 
jado pelo mercado consumidor' . 
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BRASIL TRADE CENTER 

Vender solucoes. constituindo-se 
mais numa software house que numa 
revenda de computadores Essa e a filo- 
sofia seguida pelo Brasil Trade Center — 
Divisao de Computadores e Sistemas. 
loja recentemente inaugurada no Rio de 
Janeiro. De acordo com o engenheiro 
Everton Lamartine Matte a empresa. alem 
de desenvolver sistemas parametnzados 
capazes de serem adaptados com facili- 
dade as necessidades especificas dos 
clientes. podera ainda comercializar pro- 
gramas de terceiros, devidamente depu- 
rados pela equipe da casa. com o obje- 
tivo de formar um banco de software 
bastante completo e diversificado. Alem 
de comercializar equipamentos da Prolo- 
gica. Polymax. Texas. Microdigital e tele- 
visores Sharp, o Brasil Trade Center ofe- 
rece tambem cursos especializados. for- 
necendo aos participantes documenta- 
gao tecnica e disquetes com software re- 
ferentes aos temas abordados. Entre es- 
ses cursos constam o de BASIC (basico 
e avanpado), Sistemas de Gestao em 
Microcomputadores. Estatistica Aphcada 
e Recursos Graficos em Minicomputado- 
res. O Brasil Trade Center fica na Av. 
Epitacio Pessoa. 280. Ipanema. Rio de 
Janeiro — RJ. CEP 22471, tels. (021) 
259-1299/1499/1542 



CONSELHO 
DE INFORMATICA 

A Informatica brasileira acaba de ga- 
nhar mais um importante foro para dis- 
cutir os seus problemase apontar possi- 
veis solucoes. Trata-se do Conselho Per- 
manente de Informatica da Associacao 
Comercial do Rio de Janeiro, instalado 
dia 5 de agosto na sede da entidade 
Presidido por Jose Maria Teixeira da 
Cunha Sobrinho, tambem Presidente da 
Assespro-Nacional, o grupo e composto 
por 34 conselheiros representando. alem 
de empresas nacionats e multinacionais 
de Informatica, os setores de industna. 
comercio, empresas estatais, brgaos pu- 
blicos. a Universidade e a Imprensa 

O Conselho, conforme fnsou Sobri- 
nho. tern duas finalidades principals: 
Tratar e propor hnhas de agao para as 
questoes mais relevantes da Informatica 
e incentivar a correta divulgagao da In- 
formatica. reconhecendo-a como um po- 
deroso instruments a servigo da socie- 
dade e do desenvolvimento do Pais 
Para atingir esses objetivos. o Conselho 
possui seis comissoes tecnicas que irao 
abordar a Informatica em seus aspectos 
de desenvolvimento, divulgacao institu- 
cional. uso. servigos. software e industna 
de computadores e afins. 



STRINGS 



• A Microshop inaugurou mais uma fi- 
lial, desta vez em Campinas, no Shop- 
ping Iguatemi E para o final de setem- 
bro. esta prevista a abertura de outra 
loja. na Av. Pacaembu, Sao Paulo, capi- 
tal 

• A ProJdgica firmou convenio com o 
SENAC. colocando a disposigao da enti- 
dade microcomputadores para utilizacao 
em cursos de Informatica. Com esse con- 
venio. a empresa passa a colaborar na 
formacao de profissionais em cinco gran- 
des instituigoes de ensino de Sao Paulo. 

• O pnmeiro microcomputador I-7000 
comercializado pela Itautec foi instalado 
no IMPA — Instituto de Matematica Pura 
e Aphcada, do CNPq, no Rio de Janeiro. 
O sistema sera utilizado como terminal 
IBM, em processamento distribuido. para 
edicao e compilacao de programas volta- 
dos as atividades de ensino e pesquisa 

• A Nasajon Sistemas lancou seu Catd- 
logo Geral de Software Aplicativo, con- 
tendo a descricao detalhada de 15 siste- 
mas e uma tabela de precos dos 45 sis- 
temas de uso comercial. cientifico e pes- 
soal ja desenvolvido pela empresa. 

• Ja foi implantada na Givaudan do Bra- 
sil. em Sao Paulo, a primeira versao do 



Sabia. primeiro software brasileiro de 
banco de dados relacional cnado e de- 
senvolvido para minicomputadores pela 
SCI — Sistemas, Computacao e Informa- 
tica. 

• Mais uma empresa passa a integrar 
o Grupo Machado, composto pela Data 
Ribbon. Data Nova e Datnx. Trata-se da 
MR Computadores e Sistemas Ltda. 
O grupo tambem acaba de colocar no 
mercado os disquetes Datadisk, de 5 
1/4" e 8", compativeis com todas as mo- 
dal idades de drives. 

• A Control Data do Brasil ja esta fun- 
cionando em sua nova sede no Rio de 
Janeiro, na Rua Voluntanos da Patria. 
301 . Botafogo. CEP 22270. tel. : (021 ) 286- 
3222 

• A colecao de jogos de videogame Odis- 
sey tern quatro novos cartuchos. Tres 
deles pertencem a serie esportiva e sao: 
Bilhar, Futebol de Salao/Hokey (dois jo- 
gos num so cartucho) e Esqui nos Alpes. 
Na serie acao. esta disponivel o Duelo no 
Velho Oeste. 

• A Tesbl Engenharia, que comercializa 
equipamentos da Digitus. Microdigital. 
Prologica e respectivo software, foi cre- 
denciada pela Polymax como soft house 
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• Traducoes e versoes 
exclusivas para a 
comunidade de informatica. 

• Pioneiros no setor. 

• Manuais e publicacoes 
diversas. 

• Graficos. 

• Supervisao Tecnica de 
profissionais atuantes - 
analistas e consultores. 

• "Linguagens de alto nivel" 
aliadasaqualidade/ 
velocidade de entrega. 

OlSCOOSR /£ 

TRADUQdES /1\0 

Informacoes 
pelos telefones: 
(021) 264-6392 

264-7391 

228-2798 




NAO SE ILUDA! . . ■ 

Na hora de comprar seu 
Minicomputador, Progra- 
mas, Impressoras, etc. 

Consulte quern joga 
aberto. Revenda autoriza- 
da da DIGITUS — MICRO- 
DIGITAL — DISMAC — 
POLYMAX. 

Tambem Manutencdo au- 
torizada DIGITUS. 
Comprove nosso atendi- 
mento! 

Preco justo por servico 
correto. 
TESBI ENG. TELEC. LTDA. 

RUA GUILHERMINA. 638 - ENCANTADO 
TEL.: (021) 591-3297 e 249-3166 




NOVO MICROCOMPUTADOR 
DA MICROCRAFT 

A Microcraft Microcomputadores 
Ltda langara, na proxima feira da Suce- 
su, o microcomputador AMC 6500. O no- 
me do equipamento e provisorio. ja que 
o definitivo sera escolhido a partir desu- 
gestoes feitas pelas pessoas que visita- 
rao o estande da Microcraft na feira. 
O nome aprovado dara direito a um pre- 
mio para o autor. A configuragao basica 
do microcomputador e composta por 
CPU com microprocessador 6502, 64 Kby- 
tes de memoria RAM, interpretador BASIC 
residente em ROM de 10 Kbytes, duas 
unidades de disco de 5 1/4", dupla face 
e dupla densidade, ja embutidos no pro- 
prio gabinete da CPU, teclado alfanume- 
rico, caracteres maiusculos e minusculos 
selecionaveis por software, e teclado nu- 
merico separado. O equipamento possui 
seis conectores para expansao. tern sai- 
da paralela para impressora, saida serial 
para modem, saida para joystick e para 
video a cores ou preto e branco. O AMC 
6500 e compativel em hardware e softwa- 
re com o Apple II e penmite todas as pos- 
sibilidades de expansao do mesmo. 

SUPRIMENTO LTDA 

"Quebramos o seu galho Este bem 
poderia ser o slogan da Suprimento — 
Materials para Computadores Ltda., nas 
palavras do seu diretor, Jairo B. Miszpu- 
ten. Isso porquea empresa carioca, com 
um enfoque bastante original de marke- 
ting, propoe-se a auxiliar o cliente, so- 
bretudo o hobbysta, nos problemas difi- 
ceis de resolver, desde adaptar uma fita 
nacional para funcionar numa impresso- 
ra estrangeira sem similar no mercado, 
ou fornecer papeis fora de padrao. ate 
problemas relativos a aplicacoes em ge- 
ral 

Jairo quer que a sua loja se converta 
num ponto de encontro entre hobbystas. 
onde possam trocar conhecimentos e 
experiencias, colocar suas indagacoes 
na caixa das duvidas" e encontrar solu- 
gdes na "estante das ideias". Alem de 
todo o tipo de material para micros, a 
empresa vende tambem equipamentos e 
uma marca de software para aplicacoes 
comerciais exclusivamente desenvotvida 
para ela. A Suprimento, que comegou a 
opera r dia 10 de maio, fica na Rua Vis- 
conde de Piraja, 550 lj. 202. tel.: 274-8845. 
Ipanema. Rio de Janeiro. 



CONTROLE DE FROTAS 

A Simicron — Sistemas Micronizados 
Ltda. acaba de lancar o Sistema Simitrans 
de controle de custos operacionais de 
uma frota de veiculos. A partir dos dados 
fornecidos pelos fabricantes. relativos a 
vida util de determinados componentes. 
o sistema permite calcular o custo de um 
elenco de itens de um veiculo. previa- 
mente escolhidos pelo usuario. alem de 
possibilitar a execucao de um rigoroso 
programa de manutengao preventiva e 
corretiva e apontar problemas tais como 
pecas defeituosas fora das especifica- 
cdes declaradas pelo fabricante e ma 
utilizagao dos veiculos. Ao final do perio- 
do, o sistema fornece o calculo do custo 
por veiculo ou por frota relacionando o 
total por item e o total dos itens. O Simi- 
trans pode rodar na maioria dos micros 
disponiveis no mercado e requer pouco 
treinamento para sua utilizagao. A Simi- 
cron fica na Rua Pres. Carlos de Cam- 
pos. 190. Laranjeiras, Rio de Janeiro — 
RJ. CEP 22231. tel.: (021) 205-6597 e 205- 
7849. 



PACOTE KITSIS 

A Empresa Codesis, de Porto Alegre. 
acaba de colocar no mercado o Krtsis. 
Trata-se de um conjunto de programas 
incluindo contabilidade. estoque. contas 
a pagar e a receber. agenda de compro- 
missos e uma serie de jogos. Todos os 
proramas vem com manual explicativo e 
rodam em qualquer microcomputador da 
linha Apple. O novo pacote esta sendo 
lancado por aproximadamente Cr$ 90 
mil. 



LANCAMENTOS BYTESS 

A Bytess Digital Betronica e Infor- 
matica acaba de langar tres produtos no 
mercado: o Bytesspool, o Progswitch e o 
TY-3000. O Bytesspool e um buffer para 
impressora com 64 Kbytes de memoria 
RAM. 2 Kbytes de EPROM. clock de 4 
MHz e funciona com microprocessador 
Z80A. O outro produto e o Progswitch. 
controlador de circuitos atraves de um 
relogio digital com 18 memdrias que per- 
mite programar quando cada uma de 
suas quatro chaves devera ser ligada ou 
desligada. O sistema e a prova de inter- 
rupcao de energia eletrica. mantendo a 
programacao na memoria e a contagem 
do tempo por meio de uma bateria de 
nove volts que entra em acao quando a 
eletricidade e interrompida. Ja o TY-3000 
e um teclado de membrana padrao ASCII 
com 61 teclas. Com unidade de video, 
este teclado formara o terminal TY-3600. 
Os novos lancamentos ja estao sendo 
comercializados. Maiores informagoes 
pelo tel.: (011) 210-7681. Sao Paulo. 



POLYMAX LANCA 
POLY 301 WP 

A Polymax colocou no mercado o 
microcomputador Poly 301 WP, voltado 
para o processamento de textos. e utili- 
zando o programa Polyscriba. A configu- 
ragao basica do Poly 301 WP apresenta 
CPU com memoria de 64 Kbytes e con- 
trolador de unidade de discos flexiveis. 
Cada disquete armazena 500 mil caracte- 
res, equivalente a 500 paginas datilogra- 
fadas. Compreende ainda um terminal de 
video e teclado alfanumerico com teclas 
especiais de funcao. Tambem pode ope- 
rar com fitas magneticas ou discos rigi- 
dos e impressoras de margarida. 

ITAU COMPONENTES 

O grupo Itaii acaba de criar uma 
nova empresa, a Itaii Componentes. que 
fabricara componentes para a industria 
eletronica. em especial para a microele- 
tronica. Como o Govemo ainda nao deci- 
diu sobre a concessao de incentivos pa- 
ra este setor. o grupo Itaii resolveu adian- 
tar-se e desenvolver o projeto com seus 
proprios recursos. O Diretor-Superinten- 
dente da nova empresa e Carlos Eduardo 
Correa da Fonseca. 

ELDORADO 

Ipanema. o bairro que detem a maior 
concentracao de lojas de micros no Rio 
de Janeiro, recebeu mais um reforgo: a 
Eldorado Computadores e Sistemas Ltda. 
A nova loja comercializa equipamentos 
da Prologica, Microdigifal, Digitus e Spec- 
trum (Microengenho), alemde software e 
publicacoes nacionais e estrangeiras. 
A Eldorado fica na Rua Visconde de Pira- 
ja. 351 — lojas 213/214. CEP 22410. tel.: 
(021) 227-0791 



PARA CONFECQOES 

As confecgoes ja podem contar com 
um software desenvolvido especialmente 
para esse ramo de atividade. Trata-se do 
Confec. um programa elaborado pela 
software-house Promicro e que esta sen- 
do distribuido com exclusividade pela 
loja Imares, em Sao Paulo. 

O programa permite fazer, entre ou- 
tras coisas. a gestao de pedidos. gestao 
de mao-de-obra externa (no caso de cos- 
tureiras contratadas para trabalhar fora 
da fabrica). controle de clientes. controle 
de corte e etiquetas para identificagao 
do produto. 

Os sistemas, que compreendem os 
microcomputadores da Scopus e o soft- 
ware Confec. estao sendo comercializa- 
dos pela Imares por um prego na faixa 
entre os Cr$ 7 e 10 milhoes. Quern levar 
somente o programa, pagara 360 ORTNs. 
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NAO CUSTA NADA 
EXPERIMENTAR 



Sonar/Inspec. Voce 
precisa connecer esta 
novidade na area de 
Processamento de Dados. 
Um servico tao novo que 
nao ha nada parecido para 
fazer comparacao. Com um 
software sofisticado que vai 
facilitar sua vida. 

Imagine uma selecao 
quinzenal de literatura 
tecnica especial para voce. 



Quer um exemplo? 
Artigos internacionais com 
aplicacoes de software no seu 
campo. Ou com solucoes 
para problemas iguais aos de 
seus clientes. 

A lei do menor esf orco vai 
deixa-lo encantado com o 
Sonar/Inspec. Voce vai ver. 



E se ainda restarem 
duvidas, o Cin lhe da dois 
meses de experiencia. Depois 
disso voce paga 5 ORTN's 
pela assinatura anual . 

Telefone para o Cin e peca 
material de inscricao. Nosso 
numero e (021) 295-2232 
ramal 301. Se preferir, 
escreva ou en vie um telex ao 
Cin. 



Comissao Nacional de Energia Nuclear 




mtip@cte 



Rua General Severiano, 90 - Botafogo 

22294 - Rio de Janeiro - R J - Brasil 

Tel.: (021) 295-8545 • Telex (021) 21280 CNEN BR 



Os micros da fami'lia TRS-80 ja nasceram com dotes musical's. 
De um empurraozinho que os "meninos" vao longe. 




Do, Re... Micro 



The/ma V. T. da Fontoura 



E 



ste artigo destina-se, principal- 
mente, aqueles que, aldm de 
terem os microcomputadores 
como hobby, gostam de curtir um som e 
sabem, pelo menos, um pouqumho de 
musica. 

Este e o meu caso, e devo confessar 
que fiquei bastante entusiasmada com 
os recursos musicals do software 
Extended Color BASIC. Com ele, os mi- 
crocomputadores compativeis com o 
TRS-80 Color Computer (alem do pro- 
pno) conseguem tocar qualquer musica 
com um nivel de perfeicao que eu julga- 
va quase impossivel para um compu- 
tador. 

comando que executa a musica e 
extremamente simples, sendo possi'vel 
codifica-lo diretamente sobre a partitu- 
ra. Apesar desta simphcidade, ele nao so 
toca como interpreta a musica, levando 
em consideracao andamento, ntmo. 
intensidade do som, enfim, todos os 
fundamentos necessanos ao musico para 
uma interpretacao bnlhante. 

Bern, voces ja" devem estar curiosos 
para conhecer este comando milagroso. 
Sua estrutura 6 a seguinte: PLAY 
"string". string € um conjunto de 



caracteres que contera as informacdes 
musicals, sendo composto de diversos 
parametros. Vamos ver um a um. 
• NOTAS - Sa"o codificadas com as le- 
tras de A a G. 




Se voce quiser uma nota com susteni- 
do, bast a colocar o carater # ao lado da 
nota. Para tocar uma nota bemol 6 so 
acrescentar o sinal - (menos). Com isto, 
podemos tocar qualquer nota da escala. 
Exemplo: 




• OITAVAS - S3o codificadas com a 
letra O seguidas de numeros de 1 a 5, 
cada um representando uma oitava. A 
escala que acabamos de ver est2 em 02. 
Qualquer nota mais aguda ou mais grave 
podera ser tocada se precedida da oitava 
a que per le nee. 

• DURA^AO DA NOTA OU TEMPO 
- £ codificada com a letra L seguida de 



numeros de 1 a 255. valor basico e L4 
(semimma) que tern o tempo igual a 1 , 
valendo 1 /4 de nota. As duraijoes usuais 
sao: 

SemibrrvciOi --I.I 
Minima . O ) 1.2 
Semfnima ( ) -L4 

Coicheia ( J ) 1.x 

S*mK»ldieia(*)=L16 



Fiaa ( 0) -U2 



Semif usa ( ) 4.64 

Se voce tiver notas pontuadas em sua 
musica, basta acrescentar um ponto ao 
parametro L e ele terd o mesmo efeito 
que na partitura. isto 6, acrescentara' a 
duracao da nota metade do seu valor. 
Por exemplo: 




Utilizando o ponto, voce podera" re- 
solver tambe^m eventuais problemas co- 
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mo o de notas iguais hgadas, como na 
seguinte frase: 



L 


4. 


L8 LI. 





















E se aparecer uma durac,ao de nota 
diferente das ja citadas, pode-se fazer 
uma continha e chegar ao valor corres- 
pondente de L. Vejamos: 



inM 



PLAY "L*;C;D;E;F;L2;C;A;B" 

as notas C, D, E e F serao tocadas como 
semihimas (L4); G, A e B como mini- 
mas (L2). 

Outra coisa que deve ser observada 6 
que, como o PLAY executa um string, 
podemos definir, em nossos programas, 
diversas vanaveis string contendo partes 
da musica, dividindo a partitura de acor- 
do com a nossa convenience (quantida- 
de de caracteres de uma linha, trechos 



repetitivos da musica etc.). Depois e so 
comandar: PLAY string. 

A TEORIA NA PRATICA 

Com estes parametros, creio que 
abrangemos todos os recursos necessd- 
rios a execuc-ao de qualquer musica, des- 
de um Noturno de Chopin ate" um Cho- 
rinho de Ernesto Nazareth, passando 
pelo Samba, Jazz e ate* compondo nos- 
sas pr6pnas musicas. 



Cada nota vale 1 /3 de seminima (L4 = 
1/4 de nota), entao: 

1*1 = 1 
3 ^ 12 

Concluimos que a duracao de cada 
nota do exemplo e LI 2. 

Ale'm disso, caso queira fazer um 
staccato, basta dar ao L um valor alto, 
digamos, L255 e completar o tempo da 
nota com uma pausa. 
• PAUSAS - Sao codificadas com a 
letra P seguida de um mimero de 1 a 255, 
obedecendo as mesmas regras de dura- 
cao da nota L. parametro P apenas 
nao admite o uso do ponto; voce pode 
colocar duas ou mais pausas P's) para 
identificar uma pausa pontuada. Exem- 
plo: 



As pausas usuais sao: 

Se mi breve («) =P1 
Minima (-)-P2 
Semmima ( $ ) =P4 
Colcheia ( 7 ) "P8 
Semicolcheia ( f )^P16 
Fusa ( 3 ) ^P32 
Semif usa ( $ ) =P64 

• ANDAMENTO OU RITMO - £ co- 

dificado com a letra T seguida de nume- 
ros de 1 a 255. De a cor do com o anda- 
mento descnto na partitura, ou o que 
voce prefenr, forneca o T adequado. Pa- 
ra musicas mais lentas use valores meno- 
res para T e, para mais rapidas, valores 
maiores. Desta forma, Alegro = T5 e 
Moderado =T2. 

• INTENSIDADE OU VOLUME - £ 
codificado com a letra V seguida de 
numeros de a 31. Para dar enfase a 
execucSo da musica, aumente ou dinu- 
nua o valor de V de acordo com a parti- 
tura ou com a sua sensibilidade. Sena 
algocomo:#=V31; P = V15;f =V5. 

Uma vez fornecido um parametro 
(exceto a nota), ele permanece vihdo 
para todas as notas que o seguem, sendo 
modificado apenas quando se der outro 
que altere o seu valor. No comando se- 
guinte, 



1 CLS 



Apanhei-te Cavaquinho 



APANHE I - TE , CAVAOU I NHO ! " 

(CHORO) " 

ERNESTO NAZARETH - BALDONAM" 

VERSAO PARA COLOR 64" 

THELMA VANDERLINDE" 



2 PRINT 9 C, " 

5 PRINT 9 96, " 
4 PRINT 9 128, " 

3 PRINT 9 192," 

6 PRINT 9 288, " 

7 PRINT 9 332. " 

8 PRINT 9 416. "••••»•• WMMHMMHMHMMNHHMMM»" 

10 A*«"T3;L16;04;GF#EEDC«Dr*EDCC;03;BA*B:04;EDC;03;BBAG»A;04;DC;03;BAAGF»G;04;C5 

03;BAGF»ED»EAGF#E" 

20 B4="EDC»DEF#GAB:a4;CC#DF#EDC;03;A#B;04;ED;P16:GFKEEDC#DF#EDCC:03;BA#B;04:EDC: 

03; B" 

30 C«="BAG»A; 04: DC; 03; BAAGF#G; 04: C: 03; BAGF»ED»EAGF#EEDC»DEF»GAB: 04; CC«DD#EE#F«: L 

4:G:P16" 

40 d*=»"L16:03:B;l32:04;D;L16:C:03;BA»:B:04;EF(»G:03:B;04;G:03;B;04;G;03;A»;04;C«f 

#f*;03;A«;04;f«;03;A#;04;G;03:AB;04:F#F«;0-;a;04;f#:03:A" 

50 E»="04;f#:03;GB:04;C:P16:03:B;L32;04;D;li6;C;03;BA»»B;04;EF#6;03;B;04;G:03:B:0 

4;G;03;B;04;F#:03;B:04;E:03:B;04;D:03;B;04:d:03;EFii;04;C#E:03:E;04;C#;03;E;04;C; 

03;D#F#B;P16jB;L32:04;D:Ll6:C:07.;B" 

60 F»="A#B:04;EF#G:03:B:04;G;03:&;04:G;03;At»;04;Ci«Fi»FK:03;A#:04;F#;03:At»;04:G:03 

5AB;04;F»F»;03;A;04:F#;03;A:04:F:03:GitB;04;E;Fl6;L8;D#;Ll6;EF:03;A:04;E;a3;A;04: 

D:03;a;04;c;03;A" 

70 G«»"04;c;03;EGB;Pi6:L8;A»;Ll6;B;04;C;03;BA#B;04;ED»GF#;L4:E;Pl6" 

80 h*="04:li6;gf«gagec;03;agcc;lb. ; a:li6; a;P8;L8:a:p16;G;l16; ab;04;lb;c;li6;D:l8 

. ;E;li6:E:P8;LB;E m 

90 i«="P16;li6;ED#EFED#ECE;03;B:04;E;03:A;04;E;03;G;04;E;P16:DC«DEDC#DED;03:B;"04 

;G;pi6;gf»6" 

100 j«»"AGEC;03;agec;ls. ; a;li6;P8;l8;a:P16;G;L16;ab;L8:04;c;li6;d;l8. ;E;l16;e:P8 

;LB;E;Pl&;D#;L16;EFEDE;L8.5A:L16JA:P8iL85A:Pi6SL16;GFD;03;BGFD!L8.;C{04;L16;C;Pl 

6" 

900 x«-"xa»;xb«:xc«; " 

901 Y»«"XH»; xi»; " 

910 play "v31":play x«:play x*:play d*:play e»:play f»:play g»:play d»:play e4:p 
lay f»:play g*:play x»:play d*:play e»:play f*:play g*:play y«:play j»:play y»:p 
lay j»:play x«:play d«:play e«:play f»:play g» 
998 CLS 



1 CLS 



Noturno OP. 9 N° 2 



PRINT 9 
PRINT 9 


9fc. '• 


NOTURNO OP. 9 NUM. 2" 


PRINT 9 


160," 


J. F. CHOPIN" 


PRINT 9 


288, " 


VERSAO PARA C0L0R-64" 


PRINT 9 
PRINT 9 


352. " 


THELMA VANDERLIN;: 



3 
■1 

9 

6 

7 

10 A*-"V31;T2:02:lO;B -|03lL2lBtL8lF6|L4. ;f:l4:e--;02;L8jB-j03il4;S;L32;CD-C*02;B- 

;03;C;04;l4;c:03;l8;G;L4. |B-|L4|A-ILB|6" 

20 B»-"L4. ;F;L4;g:lO;D:L4. :C C: 02: L8; B- :04;DC:03;L 16; B-A-GA-CD;L4. ;E-;P4;02;L8jB 

-;03;L4. ;G;Li6;FG:L3r:FGF;Lit:crG:L8:F;L4:E-;Ll6;E-F;L32;E-FE-;Ll6;DE-F" 

30 c««"g:02;b;03:cd-cfea-g;04;d-c:0-:r,:l j. ; b-;l4; a-; l8:g;l16; e;l64;fqfgfgfg; l16: 

ef;l8;ggd;L4. ;e-C" 

40 D*="02;L8;B-;04;DC:03;L16:B -A SA : L32: a -;L16;CD;L4. ; E-:l8:E-DE-»L4. ;F;l4: 81 LB 

;F;L4. ;FC;L8;E-E-E-E :Lli:Dr |L16.lFiL32lE-|L4. IE-I02IB-" 

50 E*»"03;L4. ;B-;L4;A;L8;G;L4. ;FDE - :L8:DCD:02: B-BB;03;CCD" 

60 F»»"02;L16:GB- :03:E ; L4; G; C2;L1 6; AB-BB-03;C«D;L16. ;G:L32:f;l4;F:lB. ;E-;L16;F; 

L32:E-FE-;L16:DE-FG;02;B;07;CD~CFEA-G;04;D-C;03:G:L4.:B-:L4;A-;L8;G" 

70 G»-"L16lE;L64lFGFGFGFG;L16;EF:L8:GGD;L4.:E-C:a2;L8;B-;04:DC»:L32:C;03lBB-AA-F 

D:02;BB-;03:DGFC :L4. ;C :L8:E-DE-" 

80 H«»"L4. ;F;L4;G;lb;f;l4. ;FC;L8:E -E-E-E-E-;L16; DE-; L 16. ;F: L32: E- ; L4. ;E-;02;B- M 

90 i*--03;B-;L4;a;l8:g;l4. ;rDE-:L8;DCD;02;B-BB;03;CCD" 

loo j»="02:l16:gb-;03;e : l4 : g: 02; li 6; ab-bb- : 03; c#d; l16. ;g:l32;f;l4; f; l8. ; e-:l16: 

fe-de-fg; 02; b: 03: cd--cfea- g; 04; d-c: 0~; gg: l4. ; b-;l4; a- ; l8: g" 

110 k»""L16;E;L64;fgfgfgfg;li6;EF;l8;6GD;L4. ;e-c;02;li6;B-;04;L8;d:H6;c»C;03»L3 

2;B;L16;B-A;l32:a-:02;m! M>aFE-|L2.»E-" 

120 l**"L4.;e-;L8;FE-F;L2. ;G:L4. ;E- ;Li6;E-EE-FE-FG;L32;CD-C;02:B-!03iC;04;L8;E-D 

C" 

130 m*="03;L4:b-:L8: :f.-fe-;li6:e-e-;04:l8;G;li6;fe-DC;03;l8;BB- 

A;L16:AA-A-G;L16. |8lL32lF|L2. ;C :L4. ;E-;L16;E-FE-FE-FE-F" 

140 N«»"L4. ;G:P4:P8;L8:E :02:l 16; A-B-A-GA-B:03;E-A-;04;E-:p~2:L32;F: 04;l8jGE-;05 

;L4;E-;L8;dcb;04;B-aa gde-:05;L4. ;e-:04:l8;f;05:C" 

150 0*-"04;L2. :BB-" 

160 P*»"04;L16;BB-;05;C:04;A" 

170 q*="04;li6;BB-:05«DC;04:B-AA-GFDE-C;03;L8;B-A-CDE-:02;B-:03;GE-;02;B-;03;GE- 

;02:B-;03;G:L4. |E-|04|E :02:l2. II 

1000 PLAY A*: PLAY B«:PLAY C*:PLAY D«:FLAY ESrPLAY F*:PLAY G»:PLAY H*:PLAY I»:PLA 

y j«:play K«:PLAY l«:play m«:play n«:play o«:play p»:play p»:play p*:play p*:pla 
y.p»:play p*:play p*:play p*:play p*:play p*:play p»:PLAY p»:play q« 
1010 CLS 
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DO, RE... MICRO 



Para mostrar como e" simples codifi- 
car uma musica apresentamos, na figura 
1, um pequeno trecho de "Garota de 
Ipanema", cuja hstagem esta na figura 2. 

Este trecho de programa esta - codifi- 
cado exatamente de acordo com a pauta 
musical. Pore*m, voce pode modificd-lo, 
adequando-o ao seu gosto. Eu, pessoal- 
mente, prefiro executd-la uma oitava 
acima (trocando todos os parametros 
para um numero lmediatamente acima. 
Por exemplo: passei 02 para 03 e 01 
para 02). 

Finalizando, voce podera sentir me- 
lhor os resultados rodando estes dois 
programas que apresentamos a seguir: 
um refere-se a musica "Apanhei-te Cava- 
qumho", de Ernesto Nazareth e o outro 
ao "Noturno OP. 09 N? 2", de Chopin. 



Thelma V. T. da Fontoura 4 Analista de Sis- 
temas pela PUC-RJ. E formada tambe'm em 
Fisica pela Faculdade de Humanidades Pedro 
II e em Musica (Piano) pelo Conservatdrio 
Brasileiro de Musica. Trabalha atualmente 
como Coordenadora de Projetos da Nab la En- 
genharla a assessora a empresa Industrie e Co- 
me'rcio de Computadores Novo Tempo Ltda. 
na pesquisa a desenvolvimento de software 
para composicao de musicas at rave's de mi- 
crocomputadores. 




18 El* L8 l» 

BS C E E F 



^m 



w 



o? 

L1C 



Figura 1 - "Garota de Ipanema" - pauta musical codificada 



100 A«="V3l»T3;02;L4. ;gsL8sE;L4:e;L8;D:L4. ;G:L8;EiL4;E;L8;s:D;L4. sg;l4;E:Esl8:D; 

L4:G" 

110 b*=»"L8:g;E;L4:E;l8:E:D;L4;f;D:D:L85D;C;L4;E;C;C;L8:C:01;L4:B-" 

120 C*-"P4|Q2»Ll|ClP2" 

130 PLAY a«:play b«:play c» 

140 CLS 



Figura 2 - "Garota de Ipanema" - Hstagem do programa 



*\ 



KALHAU ENGENHARIA, 

A MAIS COMPLETA LINHA DE 

MICROCOMPUT ADORES. 



frtenca 



ao usuariosjlie ^ ^ ^^ 



TK-85 

Linguagem BASIC 
10 Kbytes de ROM 
16 ou 48 Kbytes de 
memdria RAM 
V« 40 teclas e 160 funcoes 



^ APPLY 300: 

• Microprocessador Z80-A 

• Linguagem BASIC 

• 8 Kbytes de RAM 

• 69 teclas tipo membrana 
flexi'vel com 160 funcoes 

^ 32 ou 48 Kbytes de RAM 




Unitron 



CL'RSOS: 
Basic Basico, 
Basic Avan^ado, 
CPM/DOS e Assembler. 



OUTRAS MARCAS 

SCHUMEC- DIGITUS - 
TK-83 — TK-82 — 
J. R. DA SYSDATA 



• Aplicativos • VtUitdrios • Perifericos 
•Acessorios • Lite rat ura Tecnica • Jogos 

Despachamos para todo o Brasil. 



u 



KALHAU ENGENHARIA LTDA. 
Praga Tiradentes, 10 sala 402 
Cep. 20.060-Rio de Janeiro 
Tel. (021) 252-2752 



o mesmo_ — 






° w /pe Sa r.amente. urn op pess0 a . «- na 

requer. necessa^. niilado por quajM ^^ c0(TV seu ^ Fale 






srisfss**-*; 



«*.«*.•«*"* 



pone: 5*» " 
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Conhe^a 

todas cpcjoes 

em micro. 

Cbnhe^a 







©^Pubque 1 


^^K^ 



a Gompilipe. 



So no Brasil sao produzidos atualmente mais de 

30 tipos de microcomputadores. Todos com 

caracteristicas proprias, com softwares e 

perifericos especificos. 

Antes de comprar o seu, voce precisa analisar 

todas essas opcoes. Ou pode, simplesmente, 

procurar a Computique. 

A Computique fala a sua lingua, ajudando voce a 

escolher o equipamento e o software corretos. 

Oferecendo publicagoes especializadas e toda 

orientacao tecnica que voce precisar. 

Mostrando, de forma clara e objetiva, tudo que o 

micro pode fazer por voce. 
Na hora de escolher o seu micro, fale com quern 
entende. Fale com a Computique, a opcao total 

em microcomputacjto. 



(gmpubquc 



O micro sem segredos. 



Sio Paulo: 

Av. Angelica, 2578 
Fone (01 1)231.3922 



Rio de Janeiro: 

Av. N. Sra. de Copacabana, 1417 
L. 303/304 - Fone (021) 267.1093 



Campinas: 

Rua Concei^ao, 224 
Fone (0192) 32.6322 



PocosdeCaldaa: 

Rua Prefeito Chagas, 252 
Fone (035) 721.5810 



Por que desperdigar as duas ultimas linhas de impressao na tela? 
Se voce* tern urn TK, NE, ZX ou CP-200, veja como recupera-las. 



Abrindo espaco na tela 



Renato Degiovani 



^"V uantas vezes, durante a execucfo de um programa, 
1^1 n6s ficamos sem espaco na tela para a impressao de 
_5V- um dado? Muitas, nSo? Apesar das especificacOes \€c- 
nicas quanto ao formato da tela (24 linhas por 32 caracteres), 
as duas ultimas linhas nSo estao dispomveis ao usuario, e o ma- 
nual do computador nos in forma que € impossivel imprimir 
ale'm da linha 21. 

Isto se da" porque as linhas 22 e 23 sao reservadas para a en- 
trada de dados, ou seja, quando alguma coisa e digit ada, esse 
dado sera" pnmeiramente colocado nessas linhas, e somente 
ap6s o ENTER e que ele seri processado pelo computador. Is- 
to e" muito bom para escrever ou editar programas, mas perde 
o sentido quando o programa esta" sendo rodado. 

Nossa convivencia com o computador nos mostra que rara- 
mente um programa utiliza dados que precisem mais do que 30 
caracteres. Enta"o, por que perder o espaco de duas linhas? 
Mas, ainda que tenhamos razfo, basta tentarmos rodar o pro- 
grama 20 PRINT AT 23,8;"AQUI ESTA ELA", que o resulta- 
do serd uma indicacfo de erro 5/20 (falta de espaco na tela 
quando foi executada a linha 20), e na"o ha" forca no ce*u ou na 
terra que mude isto. Sera que na"o? 

Acrescente a este programa a seguinte linha: 10 POKE 
16418,0 e rode-o novamente. Como por encanto..., aqui estd 
ela. Agora calma, na"o vamos pensar que temos tudo sob con- 
trole, pois o computador preparou algumas armadilhas para os 
espertinhos: se acrescentarmos uma linha 30 INPUT U$, o 
resultado sera - catastr6fico! 

Vamos, enta"o, tentar entender o que aconteceu. O numero 
16418 e o enderecp de uma vanavel do sistema chamada 
DF-SZ (isto esta" no manual). Ela contim o numero de linhas 
na parte inferior da tela; logo, esta vanavel estara" reservando 
sempre duas linhas para a entrada de dados. O que n6s fize- 
mos foi uiformar ao computador que nenhuma linha deveria 
ser reservada, e assim, as 24 linhas ficaram dispomveis para se- 
rem usadas. 



E por que INPUT nao funcionou? Porque o computador fi- 
cou procurando um espaco para a entrada de dados e nao 
achou (e - mais ou menos isso). Mas esse problema 6 fdcil de ser 
solucionado: basta utilizarmos a funcSo INKEYS ao inv^s da 
instruct INPUT. 

INPUT X INKEYS 

A instrucSb INPUT interrompe o processamento, mostra o 
display e aguarda a entrada de um dado. Ja a funcao INKEYS, 
apenas le o teclado e assume o carater, em modo de operacao 
L, correspondente a tecla que estava sendo pressionada no mo- 
mento em que a funcfo foi executada. Se nenhuma tecla for 
pressionada neste exato momento, perde -se a chance do com- 
putador aceitar um dado. 

Para simularmos um INPUT, teremos que garantir um dado 
na funcao INKEYS. Para tal, podemos utilizar a instrucao 
PAUSE, cujo argumento, se for superior a 32.767, interrompe- 
ra o processamento para sempre, ou ate* que uma tecla seja 
pressionada. Se INKEYS estiver logo apos PAUSE, entfo esta- 
li garantida a leitura da tecla pressionada pela funclo IN- 
KEYS. 

Assim, acrescentamos ao programa as linhas: 



30 PAUSE 4E4 
40 LET U$=INKEY$ 
50 PRINT AT 23,0;U$ 
60 GOTO 30 



(4E4 e igual a 40.000) 
(a tecla que for pressionada sera 
arraazenada na variavel U$) 



Amda nSo estd funcionando como INPUT, certo? Dai, da 
para perceber que teremos que escrever um programa maior; 
logo, gastar mais mem6ria. Serf realmente vdlido trocar uma 
funcao INPUT, que ocupa aproximadamente sete bytes, por 
uma rotina de 200, 300 ou ate* mesmo 500 bytes? 

Se temos que escolher, 6 bom lembrar: em que pese o maior 
gasto de mem6ria, a funcSb INKEYS, como entrada de dados, 
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abre uma sdrie de possibilidades na forma como esses dados en- 
trarao no computador. Podemos ate" mesmo criar o nosso sis- 
tema particular de entrada, com cursores personalizados, li- 
mitede caracteres, correcSo automdtica de erro e muito mais. 
Basta ter um pouco de imaginacSo. 

Para substituir INPUT, podemos lancar m2o de duas roti- 
nas. A primeira delas esta na figura 1 . Esta rotina imprime um 
" > " indicando onde se inicia a impressfo dos caracteres que 
forem sendo digitados (30 no miximo). A linha 9000 posicio- 
na o " > ", o qua! pode ser colocado em qualquer lugar, lem- 
brando apenas que a coluna 30 sera" sempre o ultimo carter 
aceito. A partir dai, o sistema reiniaara" a impressao na pri- 
meira posicao valida. 



9000 


PRINT AT 23,0 


ii ^ ii . 


9010 


LET L=PEEK 16398+256*PEEK 16399 


9020 


LET K=L 




9030 


POKE L,4 




9040 


PAUSE 4E4 




9050 


LET U=CODE INKEY$ 


9060 


IF U=118 THEN 


GOTO 9180 


9070 


IF U=119 THEN 


GOTO 9150 


9080 


IF U=115 THEN 


GOSUB 9130 


9090 


POKE L,U 




9100 


LET L=L+1 




9110 


IF PEEK L=118 


THEN GOTO 9000 


9120 


GOTO 9030 




9130 


LET U=0 




9140 


RETURN 




9150 


POKE L,0 




9160 


LET L=L-1 




9170 


GOTO 9110 




9180 


LET U$="" 




9190 


FOR L=K TO K+30 


9200 


IF PEEK L=4 THEN GOTO 9230 


9210 


LET U$=U$+CHR? 


PEEK L 


9220 


NEXT L 




9230 


RETURN 





Figura 1 - Sub-rotina 1 

A linha 9010 armazena - em L e depois em K - o endere- 
co, no display, do primeiro item ap6s o " > " (no NE-Z8000 
esta variavel 6 chamada DF-CC; no TK82-C, POSPR). Fizemos 
isso para que pude'ssemos usar o POKE ao inve's do PRINT, 
ja" que a impressao com POKE 6 quase instantanea. 

A linha 9030 representa o cursor. Este pode ser alterado, 
bastando que seja substitufdo por qualquer carater como tal 
(neste caso, a linha 9200 tambe'm devertf ser alterada). 

ENTER e DELETE (NEWLINE e RUBOUT no TK) funcio- 
nam normalmente, mas SPACE na"o pode ser usado, pois in- 
terromperia o programa na linha 9050. O espaco € dado com 
SHIFT 5 (cursor para a direita). A rotina 6 chamada com 
GOSUB 9000 e retorna com o dado de entrada na variavel 
U$. Se a entrada for um dado nume'rico, pode-se usar LET 
U=VALU$. 

Vejamos as variaveis utilizadas (nSo as use no seu programa 
principal, pois elas serSo alteradas): 
L — Endereco de impressao do carater recebido do teclado 
K — Endereco do initio da impressao 
U - C6digo do cardter digitado 
U$ - Cadeia (string) de saida 

Passemos agora a segunda rotina (figura 2). Como podemos 
observar, ela 6 bastante semelhante a anterior, pore'm s6 pro- 
cessa dados com um determinado numero de caracteres (neste 
caso, os dados devem ter seis caracteres de comprimento). 

MICRO SISTEMAS. $etembro/83 



9000 


PRINT AT 23,8; 




9010 


LET L=PEEK 


16398+256*PEEK 16399 


9020 


LET U$="" 






9030 


FOR L=L TO 


L+5 




9040 


POKE L,19 






9050 


PAUSE 4E4 






9060 


LET U=CODE 


INKEY$ 




9070 


IF U=118 THEN GOTO 


9000 


9080 


POKE L,U 






9090 


LET U$=U$+CHR$ U 




9100 


NEXT L 






9110 


RETURN 







Figura 2 - Sub-rotina 2 

A linha 9030 determina o tamanho do dado de entrada, po- 
dendo ser alterada ate" um miximo de 30 caracteres. Quando 
terminar o loop, o sistema retorna com a variavel U$ pronta 
para ser processada. Nao ha necessidade de usar a tecla EN- 
TER. Esta i usada apenas para correcOes; ao ser pressionada, o 
sistema reinicia a operaca*o. 

Nesta segunda rotina, utilizamos as seguintes vandveis: 
L — Endereco de impressao dos caracteres 
U - C6digo do cardter digitado 
U$ - Cadeia (string) de saida ■ 



Reneto Degiovani 4 formado em ComunicagSo Visual e Desenho Indus 
trial pela Pontlflcla Universidade Catdlica do Rio de Janeiro. Ha" mais 
de um ano utilize o NE-Z8000 para cilculos na area em que atua. 
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MICROCOMPUTADORES 



DGT-100 Crt 240.000, x 3 — Grdtis 18 jogos 
CP-200 Cr$ 110.000, x 2 — Gratis 6 jogos 
TK85 Crf 89.925, x 2 — Gratis 6 jogos 
TK82-C Crf 49.925. x 2 - Gratis 6 jogos 

ainda: UNITRON Ap II. Mem 64 K. 
Joystick, Imptessoras. etc.. 

(Precos suieitos a modilica^oes) 



PROGRAMAS PRONTOS EM FITAS 



JOGOS 

VISITA AO CAMINO 

MIDWAY 

PASSAGEM PARA 

O INFINITO • 2r DIMENSAO^ 

10 JOGOS • JORNADA 

EXCITANTES ESTRELAS 

PARA IK E MUITO MAIS' 



NAS 



JOGOS: 

SCARFMAN 
PENETRATOR 
SUPERNOVA 
VIAGEM A VALKYRIA 
ASILO 1 
AVENTURAS 
DEFENSE COMMAND 
E MUITO MAIS' 



LEASING E CREDITO DIRETO! 



LITERATURA 

i MICRO-SISTEMAS 
' INTERFACE 
• JORNALTK-CP 
i IMPORTADOS 



+ CURSOS DE BASIC 

GRATIS 

NA COMPRA DE QUALQUER MICRO 



DESPACHAMOS PARA TODO O BRASIL! 



APUCATIVOS 
CONTROLE DE ESTOQUE 
CONTAS A PAGAR/RECEBER 
MALA DIRETA/CADASTRO 
FOLHA DE PAGAMENTO 
VlDEOCLUBES 
ESTATlSTICOS 
SOFTWARE SOB ENCOMENDA 



Kpisti T 3rt 

Rua da Lapa, 120 Gr. 505 
Rio de Janeiro - RJ 
Tel.: (021) 252-9057 



Aprimore os arranjos musicals em seu micro variando a frequencia, 
o interval o e a duracao das notas musical's. 



O som (mais harmonico) 
de seu Apple 



Evandro Mascarenhas de Oliveira 



No n9 20 de MICRO SISTEMAS 
(edicao de maio/83), foi publi- 
cado um artigo de Rudolfo Hor- 
ner Jr., intitulado "0 som nosso de cada 
micro" (da pag. 26 a 28), que onenta 
quanto a producao de musica nos mi- 
cros da linha Apple (como AP-II, Micro- 
engenho, Maxxi e Magic). Este trabalho, 
no entanto, apresentou um tempo fixo 
de duraca"o das notas musicals, o que 
nao possibilita um arranjo musical mui- 
to perfeito. Isso pode ser visto na linha 
210 de seu programa: 

210 POKE 6,CN(NT) : POKE 7,73 : 
CALL 768 

onde POKE 7,75 controla o tempo de 
duracao da nota, que foi fixado pelo 
valor 75, mantendo-se, assim, constante. 
O programa ora apresentado, que ge- 
ra a musica Cidade Maravilhosa, propoe- 
se a vanar a frequencia, o intervalo e a 
duracao das notas musicals, conseguindo 
deste modo maior harmonia na musica 
produzida. 

ENTENDENDO O PROGRAMA 

As hnhas 10 e 20 do programa Cida- 
de Maravilhosa introduzem a rotina em 
hnguagem de maquina responsavel pela 
geracao do som pelo computador. Ji as 
hnhas 30 e 40 introduzem o codigo das 
notas musicals na vanavel indexada CN. 
As figuras que mostram a rotina em hn- 



guagem de maquina e o cddigo das notas 
musicals sao. respectivamente, as figuras 
1 e 2 do artigo refendo antenormente 
(pags. 27 e 28, MS n9 20). 

As linhas 50, 70, 90 e 110 represen- 
tam os codigos das frequencias das notas 
musicals (niimeros de 1 a 9, referencia- 
dos nas posicdes da vanavel CN), o tem- 
po de duracao entre as notas (niimero 0, 
referenciado pela duracao do loop da li- 
nha 1040) e o tempo de duracao de ca- 
da nota (letras de A a I, referenciadas da 
linha 1060 a 1140). Cada uma dessas 
hnhas corresponde a um trecho da mu- 
sica. 

Vamos exphcar, agora, a sub-rotina 
miciada na linha 1000. Nesta linha, o 
loop vai de 1 ate o compnmento da 
string N $ (LEN(N $ ) ), o qual represen - 
ta o trecho musical codificado, com rn- 
tervalos de dois em dois (STEP 2). Deste 
modo, o loop separa da string original 
N$, as ires sub-strings BS, CS e D$, 
que sao: 

• BS - sub-string que con tern um 
cardter numerico (de 1 a 9) pa- 
ra cada frequencia da nota, um 
que controla o tempo de exe- 
cucao entre notas ou um cara- 
ter alfaWtico (de A ate I) que 
controla o tempo de duracao 
de cada nota. Assim, na string 
NS da linha 50, a cada mcre- 
mento do loop, e" separada 



sequencialmente a sub-string 
B$: 9F, 7F, 5G, 00,00 ...00 
(linha 1010); 

• CS —sub-string que separa o carater 

numerico da B$. Assim, quan- 
do BS 6 9F, CS sera 9; quando 
BS 6 7F, CS sera" 7 etc (linha 
1020); 

• D$ -sub-string que separa o carater 

alfabe'tico do BS. Entao, quan- 
do BS e" 9F, D$ sera F; quan- 
do BS c 5G, DS sera G etc (li- 
nha 1030). 

Na linha 1050 da sub-rotma, NT re- 
torna o valor numdnco da sub-string CS 
( NT -VAL (CS) ), que sera usado na li- 
nha 1150, em POKE 6, CN (NT), para 
indicar qual a nota a ser tocada (codigos 
da vandvel CN). 

Da linha 1060 a linha 1 140, cada ca- 
rater alfabetico de DS dara um valor pa- 
ra a vanavel CC (de 30 a 255), que sera 
usado na linha 1 150, em POKE 7, CC, 
para controlar o tempo de duracao de 
cada nota. 

Portanto, a linha 1150 dara" a fre- 
quencia da nota em POKE 6, CN (NT), 
a duracao da nota em POKE 7, CC e 
chamara a sub-rotina introduzida pelas 
linhas 10 e 20, responsavel pela geracao 
de som, em CALL 768. 

A linha 1040, atrave"s do loop FOR 
L ^ 1 TO 80 : NEXT, controla o tempo 
de duracao entre as notas da seguinte 
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forma: para cada grupo de dois zeros 
(00) de N$, ha urn retardo dado pelo 
tempo de execucao do loop. Para do- 
brar, tnplicar etc este tempo, basta adi- 
cionargrupos de dois zeros na string N$. 
Deve-se observar que NS tern sempre 
numero par de caracteres (grupos de 
dois), sendo que um e numenco e outro 
alfabetico (respectivamente, frequencia 
e duracao de cada nota) e grupos de dois 
zeros (00). para o mtervalo entre as no- 
tas. Caso NS fique com numero impar 
por omissao de algum carater, o compu- 
tador emitira um som de baixa frequen- 
cia, facilmente perceptive!, mdicando 
que falta um carater para tornar a string 
par. 

consideracOes finais 

O numero maximo de notas e nove 
(de 1 a 9), ficando o zero para controlar 
o tempo de duracao entre as notas. 

tempo de duracao da nota vana. 
neste programa, de 30 em 30, mas pode 
ser modificado para outros valores a cn- 
terio do programador. 

Se a musica contiver mais de nove 
notas diferentes, o programador tera 
que modificar a codificacao, trocando a 
numenca da frequencia de cada nota pela 
alfabe'tica e colocando a duracao das no- 
tas com a nume"nca ou outra codificacao 
qualquer, de acordo com sua vontade. 



A sub-dmsao da musica em vanas 
strings N$ facilita a sua codificacao, 
pois permite a correcSo de intervalos en- 
tre notas e de duracao das notas mais fa- 
cilmente do que se colocassemos toda a 
musica em uma linica string. Por outro 
lado, uma linica siring ficaria limitada 
ao maximo de 255 caracteres, o que fa- 
taJmente obrigana a feitura de outra 
string para continuar a codificacao. 



Evandro Mascarenhas de Oliveira 4 medico e 
exerce suas atividades em Laboratdrio Ch'nico 
e Inst rumen tacao M6dica. Trabalhou durante 
quatro anos com o computador Burroughs 
6700 do Nucleo de ComputacSo Eletrdnico 
da UFRJ, usando as linguagens FORTRAN IV 
e Algol. Tern vinos artigos publicados nas 
Areas de Eletrdnica Digital e Geral em revistas 
especializadas. 



Cidade Maravilhosa 










10 FOR K = 768 TO 786: READ J: 














POKE K,J: NEXT 


1030 


D$ ■ MIDI (B|,2, 


D 






20 DATA 173,48,192,136,208,4,19 


1040 


IF CI ■ "0" 


THEN 


FOR 


L. = 1 


8,7,240,8,202,208,246,166,6, 




TO 80: NEXT 


: GOTO 1200 


76,0,3,96 


1050 


NT = VAL (CI) 








30 FOR K - 1 TO 9: READ CN(K) : 


1060 


IF D| ■ "A" 


THEN 


CC 


= 


30: 


NEXT 




GOTO 1150 










40 DATA 77,82,92,97,110,116,123 


1070 


IF D| - "B" 


THEN 


CC 


= 


60: 


,139,147 




GOTO 1150 










50 N| = "9F7F5G00007C5C7C5E004F 


1080 


IF D| = "C" 


THEN 


CC 


= 


90: 


000000 5F4G005C4C5C3G000000" 




GOTO 1150 










60 GOSUB 1000 


1090 


IF D| » "D" 


THEN 


CC 


= 


120: 


70 N$ = "4F2F3F00004C3C5C7F8F00 




GOTO 1150 










008C7C5C3C4F7F9F000000" 


1100 


IF D| = M E" 


THEN 


CC 


■ 


150: 


80 GOSUB 1000 




GOTO 1150 










90 N$ = "9F7F5G00007C5C7C5E004F 


1110 


IF D| ■ "F" 


THEN 


CC 


= 


180: 


00OO005F4GO05C4C5C3GO00O00" 




GOTO 1150 










100 GOSUB 1000 


1120 


IF D| = "G" 


THEN 


CC 


= 


210: 


110 N$ = "3F3F6H007C8C6C3F7G0000 




GOTO 1150 










4C5C7C5C4F2G3F" 


1130 


IF D| = "H" 


THEN 


CC 


■ 


240: 


120 GOSUB 1000 




GOTO 1150 










990 END 


1140 


IF D| - "I" 


THEN 


CC 


■ 


255 


1000 FOR K = 1 TO LEN (N$) STEP 


1150 


POKE 6,CN(NT) : POKE 


7 


CC: 


2 




CALL 768 










1010 B| - MIDI (N$,K,2) 


1200 


NEXT 








1 


1020 C$ = MIDI (B|,l,l) 


1250 


RETURN 









Os Micros Cheqaram! 

Oor+ftAc Poriforir»rtc nara APPI P 



Cartoes Perifericos para APPLE. 



J70* 
2»Og - 



ISHEHEIiB Cartao de expansao de memo- 

ria RAM de 16 Kb. Wl3lfJ;l »fl 

cional para utilizar CP/M. 

CartSo para aumentar a capacidade de 

terminal para 80 colunas e 24 linhas. 

Cartao para programar 



PROGRAMMER:! 



PROTOCARD: 



nos. 

senvolvimento e teste de novos 
projetos. B2H3BES3 Cartao de 
Interface para 2 discos driver. 
EMMMJIfi Cartao de Interfa- 
ce para impressora tipo paralelo. 



c* .-• 






MICROCCMPUTADORES LTDA. 

Industria e Comercio. 
Av. Brig. Faria Lima, 
1.664 -cj. 314 
I tel. 212-6286 

Sao Paulo - SP. 



• JH 



i 



APPLE. CP M sSo ma»ca» tegsttadas de APPLE 
INC e DIGITAL RESEARCH COP USA 




Este programa, desenvolvido no Pocket Computer 

PC- 1211,6 uma conversao do j'ogo Resta 1, desafio 

na HP-41C, publicado em MICRO SISTEMAS nQ 17. 

Conv4m lembrar que, estando o programa em BASIC, 

voce podera roda-lo em outros micros, desde que 

sejam feitas as eventuais mod/ficacoes. 



Resta 1, desafio 
no PC-1211 



Ad emir Moreno Aguilar 
Sao Pau/o-SP 



E 



LOJA 
MICRO-KIT 

TUOO SOMf MJC&OCOMPUTADOR 

LANQAMENTO: 

Uvro de Basic vol. I 
Edicao Prdpria 

CURSOS 

Basic p/adultos e criancas, com m6to- 
do prdprio comprovadamente eficiente; 
Professores c/mestradoem ENGENHA- 
RIA DE SISTEMAS; mais de 20 cursos 
aplicados. Turmas pequenas aulas pra"- 
ticas com MICROCOMPUTADOR. 

VENDA DE MICROCOMPUTADOR 

Unitron AP II. Digitus, TK e CP 200. 
Financiamento em ate" 24 meses. 

PROGRAMAS 
Comerciais e Jogos p/ APPLE, Unitron, 
Poly max, Digitus TK e CP200. 

SUPRIMENTOS 

Disquetes. Caixa p/ Disquetes, Formu- 
la" rios Continuos etc. 

VENDA DE LIVROS E REVISTAS 
Despachamos para todo o Brasil. 



Ruj Visconde de Piraja, 303 S/Loja 
210 - Tels. (021) 267-8291 - 521-4638 

CEP 22410 - Rio de Janeiro 

Rua Visconde de Piraja, 365 sobreloja 

209 - Ipanema 



RESTA 1 




5: IF MO0PAUSE " 


110:v=y+1 


NUflERO INTE1R0 


120:C=(R-Y-l)/4 




":G0T0 40 


130:C=C-1NT C: IF C 




6: RETURN 


O0THEN 100 




10: 'A"N=0: INPUT " 


1401PAUSE "EU JOGU 




NUMERO = n ;N 


EI ";Y:R=R-Y: 




20: IF N< 11 PAUSE " 


GOSUB 540 




N>10":GOTO 10 . 


150: IF R<0THEN 520 




30:M=N-INT N: 


160: IF R=1THEN 500 




GOSUB 5 


170:N=R:GOTO 40 




40: INPUT "UOCE JO 


180: IF B=0LET Y=2: 




GAC1-3) ";A: IF 


B=l:G0T0 200 




(A<0)+(A>3) 


190:B=0:V=l 




PAUSE "CON ROU 


200: GOTO 140 




BO EU NAO JOGO 


500: BEEP 1 : PAUSE ,: 




":G0T0 40 


GANHEI FACIL!T 




50:1=A-INT A: 


ENTE OUTRA": 




GOSUB 5 


GOTO 10 




60:R=1NT N-INT A: 


510: BEEP 5: PAUSE " 




IF R<0THEN 500 


p ARABENS! TENT 




70: IF R=1THEN 510 


E REPET1R!' 1 : 




80: GOSUB 540 


GOTO 10 




90:v.-.-0 


540: p AUSE "SOBRARA 




100: IF Y=3THEN 180 


n ";R: RETURN 








m 
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Max X i , o micro pessoal mu i to 

prof issional da Poly max . 




O Maxxi e urn microcomputador pessoal — profissional de grande versatilidade 
e assegurada possibilidade de expansao. Compativel com APPLE II 
PLUS*, aceita mais de 5 mil programas aplicativos disponiveis no mertado. 
Sua caracterfstica padrao inclui urn monitor e linguagem Polysoft Basic, ambas 
gravadas em ROM, com 2 kbytes e 10 kbytes, respectivamente, 48 kbytes de 
mem6ria RAM disponfveis para o usu jrio; interface para gravador cassete, 
video e tv colorida (sistema PAL-M); teclado padrao ASC II e fonte de 
alimentacao, dispostos em urn gabinete pr6prio. 

Veja aqui sua essencia tecnka: 

Microprocessador 

6502 operando com freqiiencia de 1 MHZ. 

Video 

O Maxxi possui urn video profissional de 12" com fosfatizacao verde e pode 
conectar-se tambem com uma televis3o comum (colorida ou preto & branco), 
operando no modo texto ou grafico (baixa ou alta resolugao), sendo 
completamente transparente ao usuario o acesso a membria. No modo graiko, 
as ultimas 4 linhas do video operam no modo texta Todos os modos de 
operacao com o video sao selecioniveis por Software. 
Modo Texto 

• 40 caracteres/linha, 24 linhas. 

• Caracteres 5x7 

• Video normal, reverso e piscante. 

• Controle pleno do curso. 
Modo Grafico 

(baixa resolucao) 

• 40hx48vou40hx40v com 4 linhas de texto. 

• 16 cores selecioniveis por Software. 

• Comando especificos do Polysoft Basic para uso 

do Modo Grafico: COLOR, PLOT. HLIN, VLIN, SCRN. 
(alta resolucao) 

• 280 h x 192 v ou 280 h x 160 v com 4 linhas de texto. 

• 6 cores selecioniiveis por Software. 

• Comandos especificos do Polysoft Basic para uso no modo 
graTico: HCOLOR, HPLOT. 

• Imagem do video residente em 8 kbytes. 



Agora vamos 

processar os dados 

tec nicos dele. 

Membria 

A membria dinSmica RAM e organizada em 3 incremented de 16 kbytes cada 
urn, num total de 48 kbytes totalmente disponfveis para o usuano. Esta 
membria pode ser aumentada conforme a necessidade do usuario adicionando 
placas de expansao. Possui tambem 10 kbytes de ROM para armazenamento 
do Polysoft Basic e 2 kbytes de ROM para o sistema monitor. Sistema de 
"Refresh" automitico, completamente transparente. Membria rapida — tempo 
de acesso de 350 ns. 

Entrada e Saida 

O Maxxi inclui urn teclado com padrao ASC II; interface para gravador cassete, 
video e tv colorida sistema PAL-M; um conjunto de 8 conectores para a ligacao 
de cartoes controladores de perifericos e expansbes; 3 entradas de 1 bit, 4 
entradas analbgicas para conexao de "joystick" e 4 saidas digitais de 1 bit. 

Polysoft Bask 

Possui caracteristicas basicas do padrao Basic com tecnicas de forma a propiciar 
miximo rendimento dos recursos de Software do produto. 

Monitor 

Gravado em ROM com 2 kbytes. 

Perifericos e acessbrios disponiveis 

O Maxxi de concepejao modular, cresce de acordo com os perifericos a ele 
incorporados, dentre os quais destacamos: TV comum, a cores ou preto & 
branco — Monitor profissional Polymax de 12" com fosfatizacao verde — 
Unidade de drives de disquetes de 5 W, organizado com 25 trilhas, 16 setores 
de capacidade de 256 bytes cada um — Unidade de gravador cassete — 
Interface serial para impressora — Impressora Polyprint 90 CPS de 80/132 
colunas — Controladores de jogos — Interface serial para comunicacao de 
dados — Modem — Placa de expansao de membria RAM para 64 kb — Placa 
de CPU Z-80 (sistema operacional CP/M) — Placa Videx expansora de video de 
40 para 80 colunas — modulador de R.F. 



Outros produtos da Polymax: 
POLY 301 WP (Polvscriba) 

• POLY 201 DP • POLY 105 DP 

• POIY 201 DC • POLYNf T 
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MATIIi fO«TO AIF.CW KS) For* 42-7813 

FIIIAIS ASC ISPI For* 454-4922 M lO HOMZONTf MQ BIASHIA (OR Fpne 225-145* CUHTMA IPW For* 233*632 

KXTTO AUCU (RSI For* 42 3311 RK) Of lANfltO <RJ> For* 252-8274 SAO MUIO (SO For* 283-3722 

win Of imvimwiii 
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Para os a mantes da musica aqui vai um menu que proporciona decodificar 
qualquer acorde e aplica-lo nas harmonizacoes de jazz. 



Jazz Cibernetico 




Marcus Brunetta 




finalidade deste artigo e empre- 
gar o micro computador (NE, 
TK e CP-200) na analise da for- 
macao dos acordes caracteristicos do 
jazz traditional, decodificando-os. Isto 
s6 se toma possi'vel gracas a adocao da 
escala temperada, antevista por Ra- 
meau e Bach, atualmente de uso impera- 
tive nos instrumentos ocidentais de tons 
fixos. 

Antes de vermos como isto acontece, 
falaremos um pouco do surgimento do 
jazz. 

Admite-se que o jazz tenha a sua on- 
gem nos cantos e nas tradicoes musi- 
cals, provenientes do caldeamento de 
elementos afro e euro-americanos, na 
regiSo Sul dos Estados Unidos, notada- 
mente em Nova Orleans. A partir deste 
estagio miaal de formacfo, em fins do 
seculo passado, a populacao branca to- 
mou contato com o matenal sonoro e 
n'tmico que caractenza o jazz. 



Neste processo de assimilaca'o ldenti- 
fica-se uma se"ne de etapas adaptativas, 
ainda nao encerradas. Algumas delas po- 
dem ser apontadas com seguranca, como 
o Dixieland, no principio de nosso se"cu- 
lo, em Nova Orleans; e o Chicago Jazz, 
da ddcada de vinte, quando o centro de 
gravidade do jazz se desloca para o nor- 
te, rumo a Chicago, , sofrendo contn- 
buicOes individuals important issimas e 
transformando-se num verdadeiro estado 
de espinto. 

TEMPERO MUSICAL 

Vejamos agora em que consiste a es- 
cala temperada e a impli cacao que traz 
para o emprego do micro computador 
nos meandros da harmonia do jazz. 

Imagine o teclado de um piano, por 
exemplo. Partmdo de uma nota qual- 
quer, uma sucessao de doze quintas justas 
produz toda a gama cromatica e recai so- 
bre a nota inicial da sequentia. E bom 
lembrar que uma quinta justa € o mter- 



valo que existe por exemplo entre um 
D6 e o Sol subsequente;e escala cromd- 
tica 6 aquela que sena obtida se parti's- 
semos de uma nota qualquer e fossemos 
tocando as demais na ordem em que se 
apresentam no teclado. 

Entretanto, se afinarmos exatamente 
cada uma destas quintas na razao de 
suas frequencias, isto 6, 3/2, a ultima 
nota produzida nSo estana em uni'sso- 
no com a pnmeira e sim claramente 
mais alta. Aquilo que chamamos de tem- 
peramento igual da escala consiste, sim- 
plesmente, em proceder-se a afinacSo de 
cada quinta duninuindo-se de 1/12 do 
valor em que a ultima quinta excede a 
primeira. 

Deste modo a escala cromatica esta- 
ra dividida em doze intervalos iguais, o 
que possibilita, na pratica. a transposi- 
cao de uma melodia dada para qualquer 
tonalidade, sem que esta se altere. Este 
fato e" fundamental para o emprego do 
micro na analise que faremos. 
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Um aspecto importante 6 que sendo 
o jazz atual fmto de uma lmprovisacfo 
consciente, tende a desafiar a notacao 
musical traditional. Aldm disto empre- 
ga material harmdnico que, embora seja 
conhecido da harmonia traditional, na"o 
leva em conaderacSo regras de aplica- 
bilidade. Como consequenaa, muitas ve- 
zes, uma partitura de jazz pode se apre- 
sentar como no trecho da musica "Sum- 
mertime "de Gershwin (figura 1). 

Representamos as notas de acordo 
com o chamado afrado internaaonal: 
C = D6, D = R£, E = Fa\ G=Sol, A =La\ 
B = Si. Em computador dotado de alta 
densidade de video e mem6ria expandi- 
da com umdade de disco, o programa 
podena conter a visuahzaca"o das notas 
no pentagrama. Sena oportuno, tambdm, 
ver a sintetizacao dos sons correspon- 
dentes. 

Observe amda que a notaca"o da mao 
esquerda ("de acOmpanhamento") foi 
substitui'da por um conjunto de tifras, 
do tipo E+, Am6, E7, etc. programa 
que apresentamos mterpreta e traduz es- 
tas tifras em notas musicals conventio- 
nal. Vejamos como isto i feito. 

TRADUCAO DAS CIFRAS 

Em pnmeiro lugar lembremos que o 
material sonoro do jazz 6 composto por 
uma escala pentatonica (cinco tons in- 
teiros), como mostra a figura 2. Esta i 
ampliada pelo acr^scimo de uma terca 
menor e uma se"tima menor (as notas 
blue) dando ongem a um modo hepta- 
tonico, conforme demonstra a figura 3. 

Enquanto o modo heptatonico pos- 
sui valor mel6dico, o modo pentatonico 
da" origem aos dois acordes mais caracte- 
n'sticos do jazz, isto e\ o acorde de sex- 
ta (empregado por Gershwin no segundo 
e no terceiro compassos do exemplo 
mostrado: Am6) e o acorde de nona. 

Vimos que o temperamento igual da 
escala possibilita o tratamento de todos 
os intervalos como equidistantes. Para 
fins do programa, a escala do piano foi 
numerada, a partir do D6 central (o Do 
da "fechadura"), atnbuindo-se um nu- 
mero sequential inteiro a cada nota. 

programa 6 acessado a partir de um 
pnmeiro menu, onde constam as notas 
da escala musical, na seguinte ordem: 

l=C=DO 

2=C # = DO SUSTENIDO (abreviado 

SUST) 

3=D=RE 

4=D#=RESUST 

5=E=MI 

6=F=FA 

7=F # =FASUST 

8=G=SOL 

9 = G#=SOLSUST 

10=A=LA 

11 = A#=LASUST 

12=B=SI 



Am6 E7 




Figura 1 




Figura 2 




Figura 3 



Gostaria de fazer duas observacoes a 
respeito deste menu. A primeira delas 6 
que a sequencia pode ser repetida, isto 
e. o Do da oitava seguinte seria igual a 
1 3 e assim por diante (isto esti feito no 
programa ate" o numero 33). A segunda 
6 que s6 utilizamos a alteracSo ascen- 
dente (sustenido) por razoes grdficas, 
embora sabendo da enarmonia que D6 
sustenido = Re bemol, etc. 

Depois de digitada a tonalidade.apa- 
rece uma pergunta que ira" conduzir, por 
razoes de te'cnica harmonica e cointi- 
dentemente computational, a dois me- 
nus secunda'nos diferentes: o dos acor- 
des sem alteracSo e o dos acordes alte- 
rados. 

Chamamos acordes sem alteracao os 
que s3o construi'dos essencialmente com 
o material contido no modo heptatoni- 
co ja mostrado. Sao eles: 

0:Maior 

M : Menor 

6:Maior comsexta 

9/6: Acorde com sexta e nona (maior) 

7:Se'tima(maior) 

M7:Se"tima (menor) 

DIM: Acorde diminuto 

9: Maior com nona 

M9: Menor com nona 

1 1 : De'tima-primeira (maior) 

13: De'tima-terceira (maior) 

Aqui, tambe'm, algumas observacoes 
sa"oimportantes: 

• Na prdtica o acorde maior fica suben- 
tendido.isto e',G=Sol maior; 

• acorde menor 6 notado com m mi- 
nusculo (na"o disponivel no NE-Z8000): 
Gm = Sol menor. mesmo se da para 
qualquer acorde do modo menor: Am6= 
La menor com sexta; 

• O acorde de quinta e sCtima diminu- 
tas, abreviadamente chamado de dimi- 
nuto 6 por vezes notado como °, isto e": 
D° =acorde diminuto de R^; 



• Os acordes sem alteracSo, a excecJo 
dos de 11 e 13, sSo tetrafonicos (quatro 
notas). 

SSo acordes alterados todos aqueles 
que implicam em mudancas ascendentes 
ou descendentes nas notas que com- 
poem o modo heptatonico dado. Entre- 
tanto, n2o se alteram a fundamental, a 
terca e a sexta. 

O menu dos acordes alterados ira" 
mostrar: 

+= acorde aumentado (quinta aumenta- 

da) 

5- = quinta diminuta 

7+ =s^tima maior (acorde maior) 

M7+ =se"tima maior (acorde menor) 

9+ =nona aumentada 

9- =nona diminuta 

1 1+ =de"tima primeira aumentada 

13- =de"tima terceira diminuta 

Observe que os acordes alterados es- 
ta"o afrados convencionalmente e sSo,i 
excecio de 11+ e 13-, pentafonicos 
(cinco notas); e que a hsta na"o 6 exausti- 
va, o prbpno leitor conhecedor do jazz 
atual sabe que estao em uso acordes 
mais ex6ticos. 

Depois de teclar a tonalidade, optar 
pelo acorde alterado ou n5o, e escolher 
o menu com o restante da tifra veremos 
unpresso no video uma sequencia nu- 
me'rica do tipo: 
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seguida de uma pergunta: DECODIFI- 
CACAO(S/N)?. Isto possibilita a qual- 
quer pessoa, mesmo sem conhecer a no- 
taca"o musical, executar o acorde seletio- 
nado, desde que numere o teclado como 
se segue : 

*E* 

*G % * 
*C* 
*E* 

Desta forma, todos os intervalos fo- 
ram transformados em sequentias nu- 
me"ncas e cada sequentia representa o 
acorde pedido. 

Respondendo sim a pergunta antenor 
aparece a seguinte mensagem: DIGUE 
O C0D1GO; que deverd ser respondida 
com a sequencia nume"nca, em ordem 
crescente e seguida de um zero, se o 
acorde for tetrafonico ou pentafonico. 
Dai enta"o aparecera" a sequenaa de no- 
tas do acorde pedido: (veja figura 4), ; 
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C# D# 



F# G# A# 





8 



10 



13 



C D 



A B 



BIBLIOGRAFIA 

BURTON, SD - Orchestration 

Englewood Clifts: Prentice-Hall, 1982 

GUITAR, R - 4 400 Guitar Chords 
N. York: Robbins Music Co, 1965 

HONEGER, M - Science de la Musique 
- vols. I e II 

Paris: Bordas, 1976 

KOELLREUTTER, HJ. -JazzHarmo- 
nia 

S. Paulo: Ricordi, 1960 

OLIVEIRA, M. de Oliveira, J. -Harmo- 
nia Funcional 

S. Paulo :Cultura Musical, 1978 

SCHULLER , G. - Velho Jazz, suas 
raizes e seu desenvolvimento musical 
S. Paulo: Cultrix, 1968 



Figura4 



seguida de uma pergunta: OUTRO 
ACORDE(S/N)?; que remete ao menu 
principal ou encerra o processamento. 

Veja que em nosso exemplo a se- 
quence de notas obtidas decodifica o 
acorde E+, que vem a ser o primeiro 



exemplo dado ("Summertime" de Ger- 
shwin). Com isto, esta - claro que pode- 
mos decodificar qualquer acorde em 
qualquer tonalidade (desde que conste 
do menu) e aphca-lo nas harmonizacoes 
do Jazz tradicional. 



Marcus Brunette tern curso de EstruturacBo 
Musical na FundacSo de EducacSo Artfstica 
em Belo Horizonte, tendo ainda estudado cla- 
rineta com o Prof. Salvador Villa. Atualmente 
4 clarinetists da Orquestra Sinfdnica Mineira 
e da Sociedade Musical Carlos Gomes, de Belo 
Horizonte. 
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O Combustivel do Computador 



Programas para CP 500, DGT 100, TRS 80, Dismac, Polymax e outros. 
Temos disport iveis ma is de 50 programas especi'ficos, em 
f ita ou diskote, para aplicacoes diversas. 



TABELA DE PRE COS 


1 - PROMOgAO ESPECIAL 


PROGRAMA 


FITA (Cr$) 


DISKETE (Cr$) 


Contabilidade 


24.820,00 


148.900,00 


Folha de Pagamento 


— 


59.570,00 


Controle de Es toque 


39.711.00 


74.460,00 


Editor de Textos 


19.860.00 


49.640,00 


Mala Direta 


29.780.00 


74.460,00 


Arquivo de Processos 


14.890,00 


19.890,00 


Contas a Pagar/Receber 


29.780.00 


74.460,00 


Controle de Livros 


12.490,00 


17.490,00 


Controle de Cheques 


12.490.00 


1 7.490,00 


Biorritmo 


9.930,00 


14.930,00 


Decisao 


10.920,00 


15.920,00 


Histograma 


10.920,00 


15.920,00 


Estatistica 


10.920,00 


15.920.00 


Graficos 


10.920,00 


15.920,00 


Obstaculo 


10.920,00 


1 5.920,00 


Eq. Diferencial 


10.920,00 


15.920,00 


Controle de Saldo Banoario 


— 


49.640,00 


Crediario 


— 


74.458,00 


•Administracaode Imoveis 


— 


273.000,00 




/l/temo/ 



Av. Rio Branco, 45 gr. 1311 

Tel (021)263-1241 

CEP 20090 - Rio de Janeiro. 




□ cursos de basic 

□ solicite nosso 
catAlogo ou visite 

nosso show-room. 



□ DESCONTOS PARA 
REVENDA 

□ ATENDIMENTOPOR 
REEMBOLSO POSTAL 
PARATODOOBRASIL. 



CONTABILIDADE GERAL 

PARA 

CP500 - DGT-100 - TRS-80 

E OUTROS 



Voce tambem encontra esses programas em nossos revendedores credenciados. 
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Acordes de Jazz 



10 REM PGM JAZZ HARMONY I 1202 GOTO 1900 

20 REM PGMER MARCUS BRUNETTA 1205 RETURN 

21 REM JAN/1983 1900 PRINT ***DECODIFICACAO? (S/N) ■ 
25 CLS 1910 INPUT D* 

30 PRINT AT 5, 0; "*•»***•**»•***•••»»*••• 1930 IP D|«"N" THEN GOTO 2018 

•****■ 2000 REM SUBROT DECOD 

40 PRINT "QUAL E A TONALIDADE ?" 2001 PRINT ">>>DIGITE O CODIGO***" 

50 PRINT TAB 7 ;"l-C-DO" 2002 FOR J- 1 TO 6 

60 PRINT TAB 7 ;"2-C% -DO SUST" 2003 INPUT L 

70 PRINT TAB 7;' 3-D-RE" 2004 IF L-l OR L-13 OR L-25 THEN PRINT 

80 PRINT TAB 7 ; "4-DS -RE SUST" TAB 9;"*C*" 

90 PRINT TAB 7 ;"5-E-MI" 2005 IF L-2 OR L-14 OR L-26 THEN PRINT 

100 PRINT TAB 7; "6-F-FA" TAB 9;**CV" 

110 PRINT TAB 7j "7-FS -FA SUST" 2006 IF L-3 OR L-15 OR L-27 THEN PRINT 

120 PRINT TAB 7; "8-G-SOL" TAB 9;"»D*" 

130 PRINT TAB 7; "9-G% -SOL SUST" 2 007 IF L-4 OR L-16 OR L-28 THEN PRINT 

140 PRINT TAB 7; "10-A-LA" TAB 9;"*DV" 

150 PRINT TAB 7; "11-AS -LA SUST" 2 008 IF L-5 OR L-17 OR L-29 THEN PRINT 

160 PRINT TAB 7 ;"12-B-SI" TAB 9;"*E*" 

170 PRINT *>»>>>>>DIGITE****«***" 2009 IF L-6 OR L-18 OR L-30 THEN PRINT 

180 INPUT T TAB 9;"*F*" 

190 CLS 2010 IF L-7 OR L-19 OR L-31 THEN PRINT 

200 PRINT AT 10 ,0; •*••••••••••••••••*•*« TAB 9 J -«p V - 

*•*" 2011 IF L-8 OR L-20 OR L-32 THEN PRINT 

201 PRINT "ACORDE ALTERADO ?(S/N)" TAB 9; "*G*" 

202 PRINT -•»**»**•**••***«•*****•***««* 2012 IF L-9 OR L-2.1 OR L-33 THEN PRINT 
**" TAB 9;"»GV" 

203 INPUT Q* 2013 IF L-10 OR L-22 THEN PRINT TAB 9; 

204 IF Q$-"S" THEN GOTO 342 "*A»" 

205 CLS 2014 IF L-ll OR L-23 THEN PRINT TAB 9 1 

206 PRINT AT 5,0; "QUAL E A CIFRA?" "*A%*" 

220 PRINT TAB 7; "0-MAIOR" 2015 IF L-12 OR L-24 THEN PRINT TAB 9; 

230 PRINT TAB 7; "M-MENOR" -*B«" 

240 PRINT TAB 7j "6-SEXTA" 2016 IF L-0 THEN GOTO 2018 

245 PRINT TAB 7; "M6-MENOR C/SEXTA" 2 017 NEXT J 

250 PRINT TAB 7; "9/6-SEXTA E NONA" 2 018 PRINT'OUTRO ACORDE? (S/N) " 

270 PRINT TAB 7; "7-MAIOR C/SETIMA" 2019 INPUT Z» 

280 PRINT TAB 7; "M7-MENOR C/SETIMA" 2020 IF Z$-"S" THEN GOTO 25 

290 PRINT TAB 7; "DIM-DIMINUTO" 2024 STOP 

300 PRINT TAB 7; "9 -NONA (MAI OR) 2900 PRINT ">>>>>»>> DIGITE********" 

305 PRINT TAB 7; *M9-NONA(MENOR) " 2910 INPUT F* 

310 PRINT TAB 7; "ll-DEC.PRIMEIRA(MAIOR)" 3000 IF F $»"o" THEN GOSUB 3050 

330 PRINT TAB 7; "13-DEC.TERCEIRA(MAIORl" 30 02 IF F*-"M" THEN GOSUB 3060 

341 GOTO 2900 3003 IF F»-"6" THEN GOSUB 3070 

342 CLS 3004 IF F*-"9/6" THEN GOSUB 3080 

343 PRINT AT 5,0; -•••••••••»••*••**•*•*• 3005 IF F j_- 7 - T HEN GOSUB 3090 

***** ******* 3006 IF P|-"M7" THEN GOSUB 3100 

344 PRINT "QUAL E A CIFRA? " 3007 IF Ff-"DIM" THEN GOSUB 3110 
350 PRINT TAB 7; "+-AUMENTADO(QUINTA AUM;)" 30 08 IF F>-"9" THEN GOSUB 3120 
360 PRINT TAB 7; "5— QUINTA DIMINUTA" 3009 IF F*-"ll* THEN GOSUB 3130 
380 PRINT TAB 7; "7+-SETIMA MAIOR" 3010 IF F$-"13" THEN GOSUB 3140 
390 PRINT TAB 7 ; "M7+-SETIMA MAIORfAC.ME- 30U if F$-"M9" THEN GOSUB 3150 

NOR)" 3012 IF F*-"M6" THEN GOSUB 3160 
400 PRINT TAB 7;"9+-NONA AUM. (AC. MAIOR) " 3050 CLS 

410 PRINT TAB 7; "9— NONA DIM. (AC. MAIOR) " 3051 PRINT AT 10,0 ;T,T+4 ,T+7 ,T+12 

420 PRINT TAB 7; "11+-DECIMA-PRIMKIRA AUM. 3052 GOTO 1900 

(AC. MAIOR)" 3053 RETURN 

430 PRINT TAB 7; "13--DECIMA-TERCEIRA DIM. 3060 CLS 

(AC. MAIOR)" 3061 *RINT AT 10,0 ;T,T+3,T+7,T+12 

440 PRINT *>>»>>>>DIGITE********* 3063 GOTO 1900 

450 INPUT C * 3065 RETURN 

460 IF C*-"+" THEN GOSUB 500 3070 CLS 

470 IF C»-"5-" THEN GOSUB 600 3071 PRINT AT 10, a jT,T+4 ,T+7,T+9 

480 IF C*-"7+" THEN GOSUB 700 3072 GOTO 1900 

490 IF C»"» "M7+"THEN GOSUB 800 3073 RETURN 

491 IF C» "9+" THEN GOSUB 900 3080 CLS 

492 IF C$-"9-" THEN GOSUB 1000 3081 PRINT AT 10,0 ;T,T+4 ,T+9 ,T+14 

493 IF C*-"ll+ ' THEN GOSUB 1100 3082 GOTO 1900 

494 IF C|-"13-" THEN GOSUB 1200 3083 RETURN 

500 CLS 3090 CLS 

501 PRINT AT 10,0 ;T,T+4 ,T+8 ,T+12 3091 PRINT AT 10,0 ;T,T+4,T+7 ,T+10 
505 GOTO 1900 3093 GOTO 1900 

540 RETURN 3095 RETURN 

600 CLS 3100 CLS 

601 PRINT AT 10,0 ; T,T+4 ,T+6 ,T+12 3101 PRINT AT 10,0 ;T,T+3,T+7 ,T+10 

602 GOTO 1900 3102 GOTO 1900 
605 RETURN 3103 RETURN 

700 CLS 3110 CLS 

701 PRINT AT 10,0 ;T,T+4 ,T+7,T*11 3111 PRINT AT 10,0 ;T,T+3,T+6 ,T+9 

702 GOTO 1900 3112 GOTO 1900 
705 RETURN 3113 RETURN 

800 CLS 3120 CLS 

801 PRINT AT 10,0 ; T,T+3,T+7 ,T+11 3121 PRINT AT 10,0 ;T,T+4 ,Tf 10,T+14 
80-2 GOTO 1900 3122 GOTO 1900 

805 RETURN 3123 RETURN 

900 CLS 3130 CLS 

901 PRINT AT 10,0 ; T,T+4,T+7,T+10,T+15 3131 PRINT AT 10,0 ;T,T+4,T+10 ,T+14 ,T+17 

902 GOTO 1900 3132 GOTO 1900 
905 RETURN 3133 RETURN 

1000 CLS 3140 CLS 

1001 PRINT AT 10,0 ;T,T+4 ,T+7 ,T+10,T+13 3141 PRINT AT 10,0 ;T,T+4 ,T+10 ,T+14,T+21 

1002 GOTO 1900 3142 GOTO 1900 
1005 RETURN 3143 RETURN 

1100 CLS 3150 CLS 

1101 PRINT AT 10,0 ;T,T+4,T+7,T+10,T+14, 3151 PRINT AT 10,0 ;T,T+3,T+10 ,T+14 
T+18 3152 GOTO 1900 

1102 GOTO 1900 3153 RETURN 
1105 RETURN 3160 CLS 

1200 CLS 3161 PRINT AT 10,0 ;T,T+3,T+7,T+9 

1201 PRINT AT 10,0 ; T,T+4 ,T+10 ,T+14 ,T+ 3162 GOTO 1900 pj 
17.T+20 3163 RETURN » 
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— Cursos de programacao com 
APOSTILA PROPRIA e AU- 
LAS PRATICAS em diversos 
MICROCOMPUT ADORES 

— Todas as principals marcas 
de MICROCOMPUTADORES 
pelo menor preco com credi- 
to direto em ate 24 MESES 

— Programas prontos ou por 
encomendas tanto de jogos 
quanto comerciais 

MICROCENTER INFORMATICA LTDA. 

Rua Conde de Bonfim, 229 - Lojas 320 e 
312 — Galena Cinema 111 - Tel.: 264-0143 

— Cep 20520 • Tijuca - Rio de Janeiro - RJ 



SUPPLY 



EM PD, TUDO 

O QUE VOCE 

NECESSITA NUM 

S6 FORNECEDOR! 

I a Sapply nao tem apenas lodo e qualquer It- 
po de material para CPD's. Tem tambem o» 
melhores precos e a mais rapida entrega. Isso 
porque a Sapply tem um estoque completo das 
melhores marcas exlstentes no mercado, po- 
dendo assim atender — com a mesma eflclen- 
cia — desde empresas de grande porte ate pe- 
quenos consumidores. 

Se o seu problema for suprimentos para Proces- 
samento de Dados, preco ou prazo de entrega. 
consulte antes a Sapply. 

Voce far* boa* aagocioa • boa* aa U a o a. 



A^ypFLY 



Suprimentos e Equipamentos para Proces- 

samento de Dados Ltda. 

Rua Padre Leandro. 70 — Fonseca 

CEP 24120 - Tel.: 722-7937 NiterOi — RJ. 



OUTROS ESTADOS: 

Pernambuco. Rio Grande do Norte • Parai- 
ba: Filial Recife: (081) 431-0569 — Alagoas: 
CORTEC: (082) 221-5421 — Ceer*: DATA- 
PRINT: (085) 226-9328 — MatoGrosto:FOR- 
TALE2A: (067) 382-0173 




EGO 



A 1 Softec Engenhana de Sistemas 
l.tda.. ha 12 anos atuando na 
area de Processamento de Da- 
dos em Sa"o Paulo, lancou, no final do 
semestre passado, o pnmeiro microcom- 
putador brasileiro a utilizar a tecnologia 
dos microprocessadores de 1 6 bits. 

£ o EGO, que e* compativel em hard- 
ware e software com o IBM Personal 
Computer e vem com dois sistemas ope- 
racionais: o CP/M-86 e o Analix. Aldm 
disso, o EGO tern alta resolucSo grafica, 
cores, grande versa tikdade de uso de pe- 
rife'ricos e de comunicacOes (mclusive 
como termmal de computadores maio- 
res) e recursos para operar em multi- 
programacSo, com ate" oito terminals 
simultaneamente. 

HARDWARE 

A unidade central de processamento 
do EGO esta apoiada no microproces- 
sor Intel 8088, de 1 6 bits e clock de 
5 MHz, que conta ainda com o apow 
de um co-processador aritmdtico de 
ponto flutuante, o Intel 8087 de 16 
bits. 

EGO tern 48 Kb de memona ROM 
onde reside seu software basico e 64 Kb 
de mem6ria RAM disponiveis para o 
usuino, com expansao prevista para ate* 
1 Megabyte. 

Seu teclado 6 standard, com caracte- 
res maiusculos, minusculos e especiais, 
teclado nume'rico reduzido, oito teclas 
de comando e dez teclas de funcffo. Ele 
e comandado por um microprocessador 
prbpno, independente do processador 
pnnapal do micro, e possui buffer de 
20 caracteres, destacando-se ainda a re- 
peticao automatica de caracteres e a 
possibilidade de operacffo a ate" 1 ,60 me- 
tros do microcomputador. 

sistema basico do EGO vem com 
um monitor de video a cores com um 
display de texto de 25x80 ou 25x40 ca- 
racteres, compostos em matnz de 5x7. 
A apresentacflo dos caracteres pode ser 
em preto e branco - com as opcGes de 
video reverso, alto bnlho (high-light) 
e campo piscante - ou em cores, com os 
mesmos atributos do R&B, aaescidos de 
16 tonalidades e 8 cores basicas. No 
modo graTico, pode-se plotar graficos de 
funcoes com dois tipos de resolucOes: a 
cores com 200x320 pontos, ou em pre- 
to e branco com 200x640 pontos. 

Em sua configuraca"o basica, o EGO 
ja vem com duas unidades de disquete 
de 5 1 /4", que podem ser de dupla face 




e densidade e s3o instaladas no propno 
gabinete da UCP. Mais duas unidades de 
disquete podem ser hgadas ao EGO, 
cujo controlador de discos permite o 
uso de unidades de 8", dupla face e den- 
sidade, permitindo combinacOes entre 
os dois tamanhos de disquetes, sendo 
apenas obrigatono que um dos quatro 
disquetes seja de 5 1/4". Al£m disso,o 
sistema aceita ate" quatro unidades de 
disco rigido tipo Winchester, com capa- 
cidades de 5 ou 10 Mb, com a promessa 
da Softec de futuramente hgar ao EGO 
unidades com discos de 40, 80 e 96 Mb. 

O EGO pode ser hgado a impressoras 
paralelas e senais, utilizando simultanea- 
mente um mdximo de tres impressoras 
de ate - 340 CPS ou ate 600 LPM. 

Atrave"s de um adaptador de comu- 
nicacSo assincrona, o EGO pode ser li- 
gado a redes de teleprocessamento que 
podem incluir outros EGOs, computa- 
dores de maior porte (mainframes) e re- 
des de videotexto. como a Dow Jones 
News ou a Source. Para breve a Softec 
tambem promete um adaptador para co- 
mumcacao sincrona que far a a interface 
com os controladores de comunicacao 
3704/05, emulando a estacao 3276, a 
3274, terminals 3278-8 e 3278-12 e 
impressoras 3287-2. A hgacSo sera feita 
atrave's de cabos coaxiais aos controla- 
dores 327x, com protocolos BSC 1 , 3 e, 
futuramente, X:25. 

SOFTWARE 

O EGO possui dois sistemas operacio- 
nais a disposicfo do usuano,o CP/M-86 
e o Analix. 



O CP/M-86 6 uma versao do CP/M 
para micros de 1 6 bits que permite mul- 
tiprogramacao (multi-task) e tern dispo- 
ni'veis compiladores para BASIC, CO- 
BOL ANS 74. Pascal, etc. 

O Analix, compativel com o sistema 
operacional Unix, utiliza-se da lingua- 
gem C (uma linguagem recente de gran- 
ges recursos para o desenvolvimento 
tanto de utihtanos como de novos co- 
mandos - veja MS n9 19) e comporta 
multiprogramacfo, suportando ate' oito 
terminals e um niimero de programas 
proporcional a mem6na disponi'vel do 
sistema. 

Como apbcativos, a Softec estd cre- 
denciando software -houses nacionais pa- 
ra o desenvolvimento de pacotes co- 
bnndo a area administrativa/comercial e 
a gestao de empresas especi'ficas, como 
Transportadoras, Agencias de Tunsmo 
etc. 

O software de apoio ]& disponi'vel 
inclui um Editor de Textos, o SOFText, 
e uma Planilha Eletronica de Calculos, o 
SOFTECalc. Para breve, a Softec pro- 
mete os seguintes pacotes: Gerenciador 
de Banco de Dados - DBMS II; Sistema 
de Auto-Treinamento; Suporte Grifico 

- SOFTGraf; Suporte de ComumcacOes 

- SOFTECom;e Suporte para uso em re- 
des Ethernet. 

Numa configuracSo com dois disque- 
tes de 5 1/4" e monitor de video a co- 
res, o equipamento estd custando apro- 
ximadamente Cr$ 7,8 milhoes. 

A Softec fica na Rua Camboriu, 255, 
SSo Paulo, SP, CEP 05058, Tel. (011) 
260-6800. . 
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UMNOVO 

CONTROLE 

NAS PRINCIPAIS 

EMPRESAS 

PAfS. 




* " t\ I is 




ABERTA TAMBEM AOS SABADOS 



Todas as empresas aj abaixo estao agora sob 

o controle dos microcomputadores AP II 

comprados na Clappy. E voce quer saber por 

que? Primeiro: devido a sua extrema 

flexibilidade e facil manuseio. o AP II e o 

microcomputador mais adequado para as 

necessidades das pequenas. medias e grandes 

empresas 

Com memoria basica de 48 K. ele pode ser 

expandidocom 384 K. adicionais No AP II 

podem ser conectadas ate 6 unidades de disco. 

alem de placas para utilizacao de CP M. video 

de 80 colunas e impressoras senais ou 

paralelas. 

Outra vanlagem do AP II e que ele aceita todos 

os programas e todos os perifericos do 

microcomputador de maior sucesso nos EUA: 

o APPLE 

Segundo: na Clappy.estas empresas 

encontraram o menor preco e as melhores 

condicoes de pagamento do mercado, 

alem de equipe tecnica altamente 

especializada e assistencia tecnica durante 

e apos a garantia. 

Compre voce tambem um AP II na Clappy 

Sua empresa ficara em boa companhia 



PETROBRAS. COMPANHIA 
INTERNACIONAL DE SEGUROS. ATLANTIC. 
FIORUCCI. INTERBRAS. UNIVERSIDADE 
FEDERAL DO RIO DE JANEIRO. COLEGIO 
FRANCO BRASILEIRO. 
COPPE. PRIME DTVM. ESCOLA 
AMERICANA DO RIO DE JANEIRO. 
BANCO DO BRASIL. PHOENK 
BRASILEIRA DE SEGUROS. 
BANCO LAR-CHASE. INCISA. POWER 
CONSTRUTORA. BANCO COMERCIO E 
INDUSTRIA DO ESTADO DE SAO PAULO. 
POESI. PANSOPHIC. MICROLAB. CLINICA 
OTORRINOS ASSOCIADOS. ICAPRESSe 
dezenas de outras empresas e profissionais 
liberais. 



unitron Clappy 

Breve Clappy Copacabana Show Room Rua Pompeii LoureirO. 99 



Centra Av RioBranco. 12- loja e sobreloja 
283-3588 253-3395 253-3170 234-0214 234-1015 
Rio de Janeiro - RJ 

Eniregamos em todo o Brasil pelo reembolso VARIG 



Transforme em um tec/ado de piano as tec/as de seu micro da linha 
TRS-80 Modelos I /III. E consiga, atem dele, muitos outros efeitos sonoros. 



Simule um 
piano em seu 
teclado 




Newton Braga Junior 



— j programa Piano Simula o tecla- 
do de um piano atrave's das te- 
clas de seu DGT-100 (ou, con- 
sequentemente, de micros da familia 
TRS-80 Modelos I/III, como: D-8000/ 
1/2, CP-500, CP-300, Naja, JR Sysdata e 
JP-01). 

£ apresentado em duas listagens: a 
Listagem 1 - Piano, 6 o programa para 
simulacao do teclado de piano propria- 
mente dito; a Listagem 2 - Outros Efei- 
tos, e" uma vanacSb de efeitos sonoros, 
ou seja, se voce" substituir, na Listagem 
1, as Hnhas 3, 4 e 11, o teclado de seu 
micro sera" um gerador de efeitos sono- 
ros dos mais variados, podendo ate* gerar 
efeitos especiais. 

programa Piano 6 simples e nfo re- 
quer um nivel de conhecimento de pro- 
gramacao muito elevado. Mas se voce" jd 
tern aiguma noca"o de BASIC, altere os 
valores da linha lie consiga efeitos so- 
noros ainda mais loucos. 



Newton Duarte Braga Junior tern curso de 
programaoto COBOL pela Datamec e de pro- 
gramacto FORTRAN pela Universidade Fede- 
ral de Mines Gerals. Seu interesse por eletrd- 
nice come^ou no Curso da Escola Tdcnica Re- 
zende Ramell e, apartfrde 1980, vem amplian- 
do seus conhecimentos na a'rea de computa- 
p8o. Atualmente 4 proprietdrio de dots mi- 
cros: DGT-100 e PC-1 500. 



Listagem 1 —Piano 

5 CLS:CLEAR1000:S$=STRING$ (63,"*") :PRINT@448 
,S$;@532, "PIANO ELETRONICO" ;@576 ,S$ ; 

10 DEFINT A-Z:DIM B(128) 

11 POKE16526,0:POKE16527,125 

15 FORX=32000TO32023:READA:POKEX,A:NEXTX 

16 DATA 205,127,10,14,255,221,33,255,56,237, 
89,69,16,254,28,203,155,175,221,190,0,200,24 
,241 

20 READ B(8) ,B(9) ,B(10) ,B(13) ,B(31) 

21 FORX=44T059:READB(X) :NEXTX 

22 FORX=64T091:READB(X) :NEXTX 

30 DATA25, 26, 27, 38, 39, 47, 12, 48, 49, 10, 1,2, 3, 4 

,5,6,7,8,9,11,37,24,28,44,4 2,30,16,3,2,32,33 

,21,34,35,36,46,45,22,23,14,17,29,18,20,4 3,1 

5,41,19,40,13 

33 R$=INKEY:IFR$=""THEN33 

40 A=ASC(R$) :C=B(A) 

45 Y=250-5*C 

50 X=USR(Y) 

60 GOT033 

Listagem 2 '— Outros Efeitos 

15 FORX=32000TO32033:READA:POKEX,A:NEXTX 

16 DATA205, 127, 10, 14, 255, 221, 33, 255, 56, 62,1, 
85,71,2 37,89,28,203,155,16,254,21,32,245,60, 
188,32,240,175,221,190,0,200,24,231 

45 Q=INT(ABS((C-2)/8)) : Y=256*2 t (Q+l) +2 t (C-8* 
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As linhas completas de 
microcomputadores, das marcas 
de absoluta qualidade, voce 
encontra na I mares. E em regime 
de pronta-entrega. 
Parece igual a outras lojas de 
computadores? Mas ndo e. Para 
initio de conversa, a I mares 
implantou umafilosofia propria 
de comportamento que engloba 



uma serie de servicos: coloca 
equipamentos, softwares e 
pessoal experiente a disposicao 
da sua clientela e da global 
orientacao de compra do 
equipamento adequado as suas 
necessidades, atuais efuturas. 
Feita a escolha, o seu 
relacionamento com o 
microcomputador sera de 



permanente tranquilidade . 
A Imares tern um corpo de 
tecnicos de hardware e software 
altamente especializado, pronto 
a prestar plena assistencia 
tecnica e manutencao, sempre 
que necessdrio. Ede mais 
a mais, na Imares o seu micro tern 
dupla seguranca: da propria 
Imares e do fabric ante . 




Na Imares 



seu micro tern 
dupla seguranca 



imoic/' 

microcomputacbrer 



Av. dos Imares, 457 - Tels. : 61-0946/4049 - CEP 04085 - Moema - SP 
Rua Dr. Renato Paes de Barros, 34 - Tels.: 881-0200/1 156 - CEP 04530 - Itaim - SP 



As tScnicas que remontam a Criptografia classica, numa introdugao 
aos sistemas criptogra'ficos da era do computador. 



Criptografia, uma arm a 
contra os piratas? — I 



Candido Fonseca da Silva 



El ste artigo apresenta algumas considera^des sobre siste- 
mas de criptografia para dados atualmente conheci- 
dos, apontando vantagens, desvantagens, pontos pole- 

micos, suas aplica96es e as possibilidades de serem lncorpora- 
dos ao quotidiano dos usuanos de micros. 

Para tanto apresentamos, da forma mais resurruda e objetiva 
possivel, um relato sobre o desenvolvimento das tecnicas crip- 
tograTicas, quer antenores, quer postenores ao advento dos 
computadores (estas ultimas, na segunda parte do artigo, a ser 
pubhcada em MICRO SISTEMAS n9 25). 

Durante seculos, Criptografia - ciencia que trata das mensa- 
gens secretas sob forma escnta - tern sido um valioso trunfo 
para as comunidades militares e diplomiticas; tao valioso que 
sua pratica sempre foi envolvida em segredo e miste'no. Hoje, 
contudo, o espetacular progresso das Telecomunica9des e da 
Informatica nos trouxe uma serie de novas situa9des e pers- 
pectivas. 

Com efeito, a integracao dessas duas ciencias cnou uma ter- 
ceira - a Telemforma'tica (ou Telema'tica) que ja" esta" revolu- 
cionando a sociedade, em particular a chamada sociedade de 
consumo. Por intermedio da Telema'tica o emprego comercial 
da Criptografia tern aumentado, pnncipalmente no que tange 
aos arquivos confidenciais e a troca de informa^oes entre em- 
presas. 

Por outro lado, a introducao do microcomputador no dia-a- 
dia de nossas vidas conduziu a uma explosao de vendas de 
software, e muito dinheiro tern sido ganho e perdido na sua 
produ^ao (referenda bibhograTica 1). 

Ora. as tecnicas cnptograTicas constituem um dos mais 
simples e seguros mdtodos de prote9ao contra o acesso de ele- 
mentos nao autonzados a lnformac^ies confidenciais, estejam 
elas em papel ou em meios magneticos. 

DEFINigdES 

Antes de entrarmos na parte tdcnica propnamente dita, pre- 
cisamos entender bem o significado de alguns dos termos 
utilizados em Criptografia. Sao eles: 



• Seguranca de dados - £ a tdcnica que engloba o conjunto 
de medidas para evitar a mterceptacao dos dados por meio de 
escnta, roubo ou quaisquer outros metodos empregados pelo 
inimigo. Convdm fnsar que a palavra inimigo 6 aqui emprega- 
da fora do conteudo militar, sem a conotacSo de violencia. 
Assim, o inimigo sena qualquer pessoa ou organizac,ao que bus- 
casse mterceptar os dados aos quais nao tivesse acesso autonza- 
do. 

• Criptografia - £ uma das maneiras usadas pelo expedidor 
da mensagem para evitar que os dados daquela mensagem, uma 
vez interceptados, sejam inteligiveis pelo inimigo. seu com- 
plement©, a Decnptografia, e o processo usado pelo destinatd- 
no para decifrar e ler a mensagem original. 

• Sistema criptografico e chave - Conjunto de procedimentos 
usados para cnptografar e decnptografar, sendo que a chave e" 
o conjunto unico de parametros utilizados em uma apbca^o 
especifica do sistema (figura 1). 

• Criptoanalise - £ qualquer tentativa de, uma vez retidos os 
dados crfrados, obter a mensagem original, sem o conhecimen- 
to da chave. 

TECNICAS BASICAS 

Fundamentalmente, sao duas as tdcnicas de cnptografar 
mensagens: por substituicao e por transposicao. Qualquer siste- 
ma cnptografico, mdependente do seu grau de complexidade, 
baseia-se em um destes dois processos ou na combinacao deles. 

A substituicao pode ser de dois tipos. pnmeiro deles, 
denominado substituicao simples ou monoalfab^tica, 6 a tccni- 
ca mais simples que existe, inclusive muito utihzada como 
quebra-cabe9as. A chave 6 um alfabeto permutado (por 
exemplo: DEFGHIJKLMNOPQRSTUVWXYZABC). Usando 
tal alfabeto-chave, A 6 substitui'do por D, B por E, C por F e 
assim por diante. Assim, a palavra RAINHA fica criptografada 
como UDLQKD. 

Este exemplo, onde cada letra da mensagem 6 substituida 
por outra defasada de tres posi96es no alfabeto, configura a 
"Cifra de C6sar", empregada por Julio C^sar na campanha da 
Galia (55 a.C). 
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INIMIGO 

;criptoanAlise) 



P P 



EXPEDIDOR 
(CRIPTOGRAFIA] 



+, P (Estimativa de 
P) 



destinatArio 
(decriptografia) 



l K 



GERADOR DE 
CHAVES 



K --- J 



P - Mensagem original (ou "texto em claro") 

C - Texto criptografado (criptograma) 

K - Chave 

Canal inseguro, sujeito a agio do inimigo 

Canal supostamente seguro e imune a acao do inimigo. 



Figura 1 - Esquema do fluxo de informacoes em um sistema criptogrdfico conventional /sime'trico 



Substitutes simples permitem, no alfabeto de 26 letras - 
25 ! (fatonal de 25), possiveis chaves ou, aproximadamente, 
1,5 x 10 25 possibilidades. Para avaliar a grandeza de tal mime- 
ro, imagine urn computador capaz de testar cada chave a cada 
microssegundo. Tal mdquma necessitana cerca de 1,7 x 10 14 
anos para varrer todas as chaves (quase 50.000 vezes mais tem- 
po do que a idade estimada para o plane ta Terra). 

Contudo, praticamente qualquer pessoa consegue resolver 
os quebra-cabe?as pubhcados nos jornais de domingo em pou- 
cos minutos, baseando-se apenas na porcentagem da frequencia 
das letras. 

A moral deste fato 6 que a seguran^a de um sistema cnpto- 
graTico nao repousa somente em grandes niimeros, e o simples 
fato de um dado equipamento ser anunciado como sendo 
capaz de gerar 10 n+k diferentes chaves, nao basta para clasa- 
ficd-lo como excepcional. 

Vamos fazer alguns exercicios? Faca um programa em seu 
micro para cnptografar textos por substituicjio simples. Mas 
antes, alguns bizus: 

a) Observe que, formalmente, a substituicSo simples 6 um 
operador que troca cada letra do texto em claro por outra le- 
tra defasada de k posi^oes no alfabeto, em modulo n, onde 
cada n represents o numero de letras do alfabeto. 

Assim, feita uma correspondence biunivoca entre letras e 
niimeros (A- 1 , B- 2, O 3, . . . Z- 26), tem-se: texto cifrado= 
texto em claro+k (modulo 26) ou, de modo mais compacto: 



C = p 



k (aod. 26) 



Exemplo: para k« 3 e n-26, veja que a letra X e cnptografa- 
da como A, visto que: 

P = X = 24 

C = 2* + 3 dod. 26) = 1 = A 
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CHEGA 

DE 
PROBLEMAS 

Use Tig Loader f) 



APENAS: CR$ 15.000,00 



TIG-LOADER possibilita: 

• a localizacao do otimo volume do gravador, 
facilitando a operacao LOAD. 

• DUPLICAR qualquer programa, mesmo aque- 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea- 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operagoes LOAD, SAVE ou 
DUPLICACAO atraves de fone. 

• filtrar as interferences eletncas de baixa 
frequencia, que slo a causa da maioria 
dos problemas de LOAD/SAVE. 



APLICATI VOS PARA TK E CP 200 

TIG-SCREEN: vinte e sete rotinas de video, para incrementar seus programas! 
Inversio de video, moldura, arquivo de imagens, rotac3o, scroll em quatro 
direcoes, etc... efeitos visuais incri'veis! Em linguagem de miquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois e so utiliza-lo onde quizer! 
P/16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP-. coloque, em seus programas em BASIC, a velocidade de 

cddigo de maquina. Rode-os na forma COMPILADA! Simples de usar. 

e so carregar ou digitar o seu programa em BASIC e depois usar 

o TIG-COMP. Pronto! Voce tera o seu programa em linguagem de maquina em 

instantes. 

P/16K Com manual explicativo Cr$ 15.000.00 

TIG-SPEED: uma combinacSo de soft e hardware, permitindo uma transferencia 
de dados micro/cassete de 4.200 bauds. Voce podera carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a funcSo VERIFY. Facilimo de 
operar, comp5e-se de cassete, interface e manual explicativo. 
P/16e48K Preco sob consulta. 



Envie seu pedido * cheque nominal cruzado 
Prazo de entrega: 15dias 

Despesas postais inclui'das nos precos 
Atandamoi somant* pof eartt 




TIGRE COM. DE EQUIP. P/ COMPUT ADORES LTDA. 
Rua Correia Galvao. 224 
CEP 01547 Sao Paulo SP 



CRIPTOGRAFIA, UMA ARMA CONTRA OS PIRATAS? 



b) Se voce nao quiser usar as operacoes em m6dulo, terri: 



C = p 
C = p 



k , se p 
k - 26 , 



k ? 6 



k > 26 



c) Observe tambdm que, para alfabetos-chave, como por 
exemplo BWGKQFMVYAC LUNOPHISDXTREJZ, tais f6r- 
mulas nao valem, pois tal alfabeto foi permutado sem uma de- 
fasagem constante. Para casos como este deve-se, no programa, 
defirur o alfabeto-chave e fazer correspondence entre as letras 
do alfabeto em claro e ele. Por exemplo: A sera" cifrado como 
B, B como W, C como G etc. 

Agora desenvolva um programa para criptoanahsar textos 
cifrados por substituicao simples. Vamos aos bizus: 

a) Observe que a formula para decnptografar pode ser escn- 
ta como: texto em claro=texto cifrado — k (modulo 26) ou, 
de forma mais com pacta: 

P = c - k (nod. 26) ou ainda: 

P = c-k; s e p • , p = p + 2 6 

Exemplo: para k- 3, a letra A, decnptografada, da" X, uma vez 
que: 

c = A = 1 

P = 1 - 3 = -2; como p< 0, entao: 

p = -2 + 26 = 24 = X 



b) A maneira mais simples de resolver o problema 6 por ten- 
tativa e erro, ou seja, ir expenmentando, sucessivamente, com 
k- 1, k- 2 . . . k- 25, (k= 26 restaura o alfabeto original). Isto 
sempre na hipotese de que o alfabeto foi permutado com uma 
defasagem de k constante. 

c) Contudo, a maneira mais eleganie e completa e" venficar a 
frequencia de ocorrencia das letras no cnptograma e compara- 
la com a do ldioma Portugues (em portugues, as letras de 
maior frequencia sao, em geral, EAOSIRND, nesta ordem). 

Num esforco para dificultar a cnptoandlise via exame de 
frequencia de letras, os cnptografistas desenvolveram sistemas 
por substituicao polialfabetica nos quais diversos, e nao somen- 
te um alfabeto-chave, sao empregados, penodicamente, para 
decifrar mensagens. Um exemplo e o Quadro de Vigenere (de- 
vido a Blaise de Vigenere, 1586), mostrado na figura 2. 

A figura 3 mostra o quadro (parcial) que sena utibzado para 
decifrar um texto utilizando a palavra-chave BUGRE; a figura 
4 llustra como sena cnptografada uma mensagem a partir desta 
chave. 

Uma outra forma de substituicao pohalfabe'tica e" aquela na 
qual, ao inves dos previsiveis alfabetos Vigenere, os alfabetos- 
cifra sao gerados aleatonamente, e nao correlacionados entre 
si. Mais ainda: a chave, ao inves de ser periodica, pode ser nao 
repetitiva (por exemplo, ir ). 

Empregando-se tais artificios, esta t^cnica, nao obstante ja" 
ser conhecida desde os trabalhos de Kasik (1863), torna-se 
demorada e onerosa para o mimigo. 

Como exercicio, escreva um programa para cnptografia pelo 
Quadro de Vigenere. Olha o bizu: se a sua palavra-chave tiver, 
digamos, cmco letras, isto 6, se forem usados cinco alfabetos- 



TK-82 TK-85 
CP-200 




Comerciais. financeiros. 
cientilicos e games como: 

Formula I 

Em busca do tesouro 

Simulador de voo 

Microcalc 

Invasao cosmica 

Controle de estoque 

Las Vegas 

Viga continua 

e muitos outros 

Cartucho Atari 
Aplicativos p/CP 500. Digitus e Polimax 

Distribuicao exclusiva de programas das 
marcas MICROLINE. INFINITUS e supersoft 

PEQA CATALOGO GRATIS 



D DIGITAL 
o •nctoreco dos microcomputadorts 

Rua da Conceicao, 377/383 
Fone: (0512) 24-1411 
90000 Porto Alegre - RS 











TEXTO EM CLARO 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 




ABCDEFGHIJKLMNOPQRSTUVWXYZ 






BCDEFGH IJKLMNOPQRSTUVWXYZA 






CDEFGHIJKLMNOPQRSTUVWXYZAB 






DEFGHIJKLMNOPQRSTUVWXYZABC 






EFGHIJKLMNOPQRSTUVWXYZABCD 






FGHIJKLMNOPQRSTUVWXYZABCDE 






GHIJKLMNOPQRSTUVWXYZABCDEF 






HIJKLMNOPQRSTUVWXYZABCDEFG 




ALFABETOS 


IJKLMNOPQRSTUVWXYZABCDEFGH 
JKLMNOPQRSTUVWXYZABCDEFGHI 
KLMNOPQRSTUVWXYZABCDEFGHIJ 
LMNOPQRSTUVWXYZABCDEFGHIJK 
MNOPQRSTUVWXYZABCDEFGHIJKL 
NOPQRSTUVWXYZABCDEFGHIJKLM 
OPQRSTUVWXYZABCDEFGHIJKLMN 




CHAVE 


PQRSTUVWXYZABCDEFGHIJKLMNO 
QRSTUVWXYZABCDEFGHIJKLMNOP 
RSTUVWXYZABCDEFGHIJKLMNOPQ 
STUVNXYZABCDEFGHIJKLMNOPQR 
TUVWXYZABCDEFGHIJKLMNOPQRS 
UVNXYZABCDEFGHIJKLHNOPQRST 
VWXYZABCDEFGHIJKLMNOPQRSTU 
WXYZABCDEFGHIJKLMNOPQRSTUV 
XYZABCDEFGHIJKLMNOPQRSTUVW 
YZABCDEFGHIJKLMNOPQRSTUVNX 
ZABCDEFGHIJKLMNOPQRSTUVNXY 









Figura 2 - Quadro de Vigenere 
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ABCDEFGHIJKLMNOPQRSTUVWXYZ 

BCDEFGHIJKLMNOPQRSTUVWXYZA 
UVWXYZABCDEFGHIJKLMNOPQRST 
GHIJKLMNOPQRSTUVWXYZABCDEF 
RSTUVWXYZABCDEFGHIJKLMNOPQ 
EFGHIJKLMNOPQRSTUVWXYZABCD 



Figure 3 - Quadro (partial) para a palavra<have BUGRE 



MENSAGEM 

CHAVE 

CRIPTOGRAMA 



RENATA E ROBERTA NADAM NA PISCINA 
BUGREB U GREBUGR EBUGR EB UGREBUG 

SYTRXB Y XFFFIZR RBXGD RB JOJGJHG 



Figura 4 - Criptograma com a chave BUGRE 
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Figura 5 - Transposicao simples 



chave, as letras numeradas(5n+i) serao afradas com o i-esimo 
alfabeto. Sendo assim, letras numeradas com 1,6, 11, 16 etc., 
serao cifradas com o pnmeiro alfabeto-chave. 

Outra tecnica bdsica da cnptografia 6 a transposicao. A fi- 
gura S llustra a chamada transposicao simples, na qual a mensa- 
gem 6 escnta sob uma palavra-chave e o criptograma 6 obtido 
retirando-se as letras, col una por coluna, na sequencia nume"n- 
ca das letras da palavra-chave, em grupos de cmco. 

J a a transposicao dupla consiste em aphcar, ao criptograma 
da transposicao simples, uma segunda transposicao, porCm 
com uma chave diferente. texto cifrado resultante apresenta 
uma surpreendente resistencia a cnptoan&ise. 

Finalmente, outras formas de transposicfo consistem em re- 
tirar o criptograma, na"o por colunas, mas sim mediante uma 
rota preestabelecida (espiral horana ou anti-hordna etc.). Na 
figura 6 temos o texto em claro original, escnto na sequencia 
de uma espiral anti-horana, com o texto cifrado por linhas. 

COMENTARIOS FINAIS 

£ importante fnsar que esta pnmeira parte do artigo visou 
apenas dar uma pnmeira e superficial nocao aos leigos sobre o 
assunto. 

Cada tecmca cnptograTica constitui, por si s6, um verdadei- 
ro curso, em especial as de transposicSb e as de substituicao 
pohalfabetica, cuja cnptoanalise, ana's, s6 foi possi'vel apos cer- 
ca de 300 anos de seu emprego. 

Os programadores de ALGOL, do Burroughs B-6900, por cer- 
to reconheceram, na instruct TRANSLATETABLE daquela 
lmguagem, uma ferramenta para a cnptografia por substituicao. 
Contudo, os procedimentos n'gidos e facilmente algontmiveis 
dos diversos processos permitem uma programacao tnvial para 
os usuanos de micros. 
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Criptograma: 



RADAN EMANA 
NNXIT AAXCR 
TPISE AEROB 



Figura 6 - Transposicao por rota 

Finalmente, aqueles que estiverem interessados em maiores 
detalhes sobre Cnptografia a ldpis e papel obterao respostas 
bastante completas nas referencias bibhograTicas 2, 3 e 4. 
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MINAS DIGITAL 
O SHOPPING DA 

COMPUTAQAO 

• Vendas de micro-computadores 

• Vendas de pecas e componentes para micros 

• Assistencia tecnica a micros 

• Vendas de li vros e revistas sobre computacao 

• Vendas de disquetes formul^rios e frtas mag. 

• Cursos de digitacao e programac§o 

NA MINAS DIGITAL 

VOCl ENCONTRATUDO 

SOBRE MICRO-COMPUTADORES 

aiejTAL 

201-7555 

Rua Tupinambas 1045- Conj. 601 /602 - Contro Rua Tom6 
de Souza 860 - Loja B • Savassi 



ATENDIMENTO POR REEMBOLSO POSTAL 
PARATODOO BRASIL 



Na hora de fazer a sua f ezinha na Loteria E sport iva, f omega os palpites 
ao D-8000, deixe-o preencher o cartao para voce e... boa sorte\ 



Acerte na loteca 
com o D-8000 



Ivo D 'Aquino Neto 



Mesmo os que nao entendem de futebol, nao acompa- 
nham os jogos esportivos ou nao acreditam na sorte, 
vez por outra, se sentem tentados a jogar na Loteria 

Esportiva. 

£ nessa altura que surge a duvida de como preencher o 
cartao de apostas. Aleatonamente, atrave"s de um sorteio do 
tipo cara ou coroa? Seguindo ngidamente os prognosticos das 
revistas especializadas? 

Creio que a combinacao desses dois processos nos fornece a 
solucao mais satisfatona: um sorteio com probabilidades de 
ocorrencia de cada um dos eventos (coluna 1 , coluna do meio, 
coluna 2), determinadas pelos progn6sticos fornecidos pelas 
revistas esportivas. 

Entrando com os dados (porcentagem para cada um dos 1 3 
jogos) no D-8000, utilizando o programa listado a seguir, obte- 
remos no video, ou impresso, o cartao devidamente preenchi- 
do. Os palpites duplos ou tnplos ficam por nossa conta, ou po- 
demos compor um cartao baseado nos palpites fornecidos por 
dois cartoes preenchidos pelo computador. Neste caso, os mes- 
mos dados de entrada para o D-8000 nos fornecerao os cartoes 
que nos servirao de base. 



JOGO I COLUNA 1 | COLUNA DO MEIO 
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Figura J - Exemplo de cartao preenchido pelo D-8000 



Ivo D 'Aquino Neto 4 Engenheiro Eletrdnico. Trabalha atualmente na 
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CEAPRO MICROCOMPUTADORES LTDA 



CUflSOS D£ ESPtOALIZAQAO PflOFISSlONAL 
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• IELEPROCESSAMENT0 I HARDWARE 16/04/83 
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Loteria Esportiva 



-S $ $- L O T E C A -S S $- 

PROGRAMA DESENVOLVIDO POR: 

IVO D'AQUINO NETO, EM: 02/01/1982 



• * * SUBROTINA PARA DESENHAR CARTAO * 



10 
20 
30 
40 
50 
60 
70 

80 ' * 

90 . . ******* ......********•»* 

91 ' 

92 ' 

93 ' 

100 CLEAR 1 500 :DEFSTRX:DIMCK 1 3 ) ,CM( 1 3 ) ,C2( 1 3 ) ,P1 ( 1 3 ) , 
PM( 13),P2( 131.XM 13),XM(13),X2( 13>,X( 13) 

110 CLS:A$="$ SS LOTECA SS S" :GOSUBl 000 :PRIN 
T«PP,AS 

120 PRINT: PRINT :PRINTTAB( 7 )"FORNECA SEUS PALPITES, EM 
PORCENTAGENS , PARA CADA UM DOS 13 JOGOS E SEU D-8 
000 PREENCHERA 1 UM CARTAO PARA VOCE. " :FORI= 1TO300 
0:NEXT 

1 30 CLS :GOSUB500 :GOSUB1 500 : FORI' ITOI 000 : NEXT 

140 CLS:GOSUB500:GOSUB2000 

200 END 

210 ' 

211 ' 
212 
500 
501 ' 

510 F2=124:A=12:B=23:C=40:D=51 

520 A$="JOGO COLUNA 1 COLUNA DO MEIO COLUNA 2" 

530 PRINT«7,A$:PRINT«>136,"1":PRINT«200,"2":PRINT»264, 
"3":PRINT*328,"4":PRINT*392,"5":PRINT»456,"6":PRI 
NT©520,"7":PRINT«584,"8-:PRINT«648, H 9":PRINT«711, 
"10":PRINT«775,"11":PRINT«8 39,"12":PRINT»903,"13" 

540 FORI=154 31T015474:POKEI,95:NEXT 

550 FORIN=15360TO16256STEP64 

560 POKEIN+A,F2:POKEIN+B,F2:POKEIN+C,F2:POKEIN+D,F2 

570 NEXT 

580 RETURN 

591 ' 

592 • 

1000 • * * * SUBROTINA PARA FAZER PISCAR O TITULO 

1001 ' 

1010 PRINTO0, STRINGS* 64, 32) ; :FORI=1TO10 

1020 PP=INT( (64-LEN(A$))/2):PRINT«PP,A$;:FORJ*1TO20:N 

EXT 
1030 PRINT»0,STRINGS(64,32);:FORJ*1TO10:NEXTJ,I 

1040 RETURN 

1050 ' 

1051 ' 

1052 ' 

1500 ' * 

1501 ' 

1510 FORK=1T013 

1520 P1(K)=145+64*(K-1 ): PM( K )= 1 59+64* ( K- 1 ):P2(K 1=173+ 

64*(K-1) 
1530 PRINT4JP1 (K) ,""; : INPUTC1 (K 1 : PRINT«PM(K) ,"";: INPUT 

CM(K):C2(K)=100-C1(K) -CM( K ) : IFC2 ( K ) <0THEN 15 30 
1540 GOSUB510:FORF=1TOK:PRINTW1 (F) ,C1 (F) ; :PRINT«PM(F 

1 ,CM(F); :PRINT«P2(F),C2(F); :NEXTF,K: RETURN 

1550 ' 

1551 * 

1552 ' 

2000 ' • SORTEIO COM PROBABILIDADES PREDETERMINADAS * 

2001 ' 

2010 FORH-1T013 

2020 RANDOM 

2030 X!=RND( 101 )-1 

2040 IFC1(H)>=X!Xl(H)="X":XM(H)-"":X2(H)="":GOTO2070 

2050 IFX!<i-C1(H)+CM(H)X1 ( H ) ="" : XM( H ) ="X" :X2( H ) ="" :GOT 

O2070 
2060 IFX!>C1(H)+CM(H)X1(H)="":XM(H)="":X2(H)="X" 
2070 NEXT 
2080 FORH=lT013 
2090 PRINT«P1(H),X1(H) ; :PRINT«PM( H ) ,XM( H ) ; : PRINT«P2( H 

),X2(H); 
2100 NEXT 
2110 PRINT©973,"<DESEJA IMPRIMIR O PROGNOSTICO S/N ?"> 



SUBROTINA PARA INTRODUtJAO DE DADOS 



2120 
2130 
2140 

2150 
2151 
2152 
2500 
2501 
2510 



IK$*INKEY$:IFIK$=""THEN2120 

IFIKS="N"THEN2600 

IFIK$ = "S"PRINT«960,STRING$(63,3.2) ; : GOT02 500 : ELSE 

2110 



' * * * IMPRESSAO DO PROGNOSTICO * * * 

LPRINT" ":LPRINT" " : FORW= 1 5360TO1 6359STEP64 : Z$» 



2520 FORy=0TO63:ZS«ZS+CHRS(PEEK(W+Y) ) :NEXTY :LPRINTZ$ : 

NEXTW 
2600 PRINTW73," <VOCE DESEJA NOVO PROGNOSTICO S/N ?"> 

2610 IKS=INKEY$:IFIK$-""THEN2610 

2620 IFIKS="N"END i 

2630 IFIK$*"S"THEN130ELSE2600 f 
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SEU 

MICRO TEM ASSISTENCIA 
TECNICA DE GRANDE PORTE. 

Ha mais de 1 2 anos a MS presta atendimento a uma serie de empresas, 
no conserto e manutencao de computadores dos mais diversos portes 
e marcas E toda essa bagagem tecnica esta tambem a sua disposigao , 
garantindo o desempenho ininterrupto do seu micro. 

• Socorro urgente tetefonico - chamou-chegou! 

• Check-ups preventives 

• Reparos 

• Substituicao de pecas com garantia 

• Substituicao do micro ou unidades perifericas 

• Contratos de assistencia tecnica a empresas e particulares. 
Na MS a vida de sua maquina esta garantida. 

MS - Assistencia Tecnica a 
Microcomputadores 

RuaAstolfoAraujo. 521 -Tel.: 549-9022 
CEP 04008 -S.Paulo -Capital 

Representante no Brasil da: MDS - Mohawk Data Sciences/MSI - Data Corporation 



* SUPER LANQAMENTO * 

TK'S E CP-200 
DEFENSOR 3D • BAZOOCA 

INGLES II • G. PREMIO BRASIL 

* JOGOS DISPONlVEIS * 

TK'S E CP-200 



• KING KONG 

• MICROPAC 

• LABIRINTO CHINES 
• CAVERNA 

• matemAtica 



• COMBATE AEREO 

• DRACULA 

• FUTEBOL 

• INGLES 

• ENTERPRISE 



PREQO UNICO DE Cr$ 4.500,00 

CP-500, CP-300 e SYSDATA 

• FUTEBOL 

• SANTA PARAVIA 

PRECO UNICO DE Cr$ 8.000.00 

ADQUIRA SEU SOFTWARE ATRAVES DE REVENDEDOR OU 
PELA CAIXA POSTAL. 

* NOVIDADE * 

RECEBA 120 PROGRAMAS (10 TODO MES) 

PRECO TOTAL 
LISTAGEM — Crf 15.000,00 
CASSETE — Cr* 25.000,00 

SE VOCE JA COMPROU O NOSSO SOFTWARE E ENVIOU 
O CERTIFICADO DE GARANTIA, RECEBERA UM DESCON- 
TO AUTOMATICO DE Cr$ 3.000,00. 
ENVIE CHEQUE NOMINAL A: 



MICRO BOARD S/C LTDA. 

CAIXA POSTAL 18968 

SAO PAULO - SP - CEP 04699 

FONE: (011) 532-0923. 









A maioria das linguagens nao permitem operacoes com numeros 
complexos. Este programa, em BASIC, torna isto possivel nos micros. 



Operates complexas 
em BASIC 



Valdir Aguilera 







s numeros complexos sao ne- 
cessanos em muitas situacoes 
encontradas por matematicos, 
fi'sicos e engenhenos. 

Na Matemitica eles aparecem como 
uma pnmeira extensao dos numeros 
reals: o chamado campo complexo. Na 
Fisca, sa"o uteis nos estudos de movi- 
mentos oscilat6rios, entre outros. En- 
genheiro Eletroruco, por sua vez, socor- 
re-se dos numeros complexos para cal- 
cular propriedades de circuitos eletncos, 
como a lmpedancia, por exemplo. 

Em segiuda. apresentamos urn con- 
junto de instrucOes em BASIC que per- 
mitirao implementar em seu compu- 
tador as quatro operacoes complexas 
fundamentals (adicao, subtracao, multi- 
phcacao e divisa"o), permltlndo alnda a 
obtencao do modulo e o argumento de 
urn numero complexo dado. 

Conslderemos o problema de conhe- 
cer o numero complexo C, que 6 obtldo 
a partir dos numeros complexos conhe- 
cidos A e B por melo de uma das quatro 
operacoes fundamentals complexas, por 
exemplo C- A/B. programa requer que 
o valor das partes real e imaginaria dos 
ope ran dos A e B estejam armazenados 
nas varlaveis RA, RB, IA e IB. resul- 
tado ficari contldo nas variiveis RC e 
IC, que representam as partes real e ima- 
ginaria de C, respectlvamente. 

Para o cdlculo do modulo (RO) e do 
argumento (ARG), o programa requer as 
partes real e imaginaria do numero com- 
plexo dado armazenadas nas vaniveis 
RE e IM, respectlvamente. 

O programa deve rodar na maioria 
dos micros nacionais e estrangeiros. 



Operacoes com Numeros Complexos 



01 REM - OPERACOES COMPLEXAS 

02 REM - AGUILERA : MAIO 1983 

03 REM - Operacoes: +,-,*, /.modulo, argumento 

04 REM - RA: parte real do primeiro operando 



RB: " " " segundo 

- RC: " " " resultado 

- IA: " imaginaria do primeiro operando 

- IB: " " " segundo " 

- IC: " ■ ■ resultado 

- RE: " real do complexo cu jo modulo ou argumento se requer 

- IM: " imag -- ■•■ ■ . 1 

- RO: contera o modulo 

- ARG: " " argumento 



05 REM 

06 REM 

07 REM 

08 REM 

09 REM 

10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

19 REM Comeco do programa 

20 SOME=30: RESTE-40: MULT-50: DIVIDA-60 
22 MODULO-70: ARG=80 

30 REM * * * ADICAO * * * 

35 RC=RA+RB: IC=IA+IB: RETURN 

40 REM * * * SUBTRACAO * * * 

45 RC=RA-RB: IC-IA-IB: RETURN 

50 REM * * * MULTIPLICACAO * * * 

55 RC=RA*RB-IA*IB: IC»RA*IB+RB*IA: RETURN 

60 REM * * * DIVISAO * * * 

65 IC=RB*RB+IB*IB: RC* (RA*RB+IA*IB)/IC 

67 IC»(RB*IA-RA*IB)/IC: RETURN 

70 REM * * * MODULO • • * 

75 RO=SQR(RE*RE+IM*IM) : RETURN 

80 REM * * * ARGUMENTO • * * 

85 ARG=ATN(IM/RE): RETURN 

100 REM - EXEMPLOS DE UTILIZACAO 

1) Somar a=1-i com B=3+10i 
RA-1: IA»-1: RB-3: IB*10: GOSUB SOME 
RC contera 4 e IC contera 9 : C*4+9i 

2) Calcular o modulo e o argumento do 
complexo B do exemplo 1 
RE=3: XMbIOi GOSUB MODULO: GOSUB ARG 
RO contera _o modulo de B 
ARG contera o argumento de B 



101 


REM - 


102 


REM 


103 


REM 


104 


REM 


105 




106 


REM 


107 


REM 


108 


REM 


110 


END 



a. 



unico obstaculo pode estar na smtaxe da 
mstrucao GOSUB, que podera requerer 
exphcitamente uma constante em vez de 
uma vanavel. Neste caso, use as constan- 
tes definidas nas linhas 20 e 22 para 
cada chamada tipo GOSUB. 



Valdir Aguilera 4 Professor com Doutoramen- 
to em Ffsica e di aulas particulares de lingua- 
gens FORTRAN, BASIC, ALGOL e Pascal. 
Valdir tambe'm trabalha prestando assessoria 
de software, atrave"s da firma Micro Espelho, 
em SSo Paulo. 
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•UtfC, 




Se voce ainda nao guardou o endereco da 

CompuShop da Rua Dr. Mario Ferraz, 37, 

vai ser impossivel esquecer o novo. 

Av. Pres. Juscelino Kubitschek, 889. 

(entre a rua Joao Cachoeira e a 

rua Clodomiro Amazonas) 

A loja especializada em microcomputadores. 



Presente mais uma vez. 



Av Pres. Juscelino Kubitschek, 889 - CEP 04543 - Sao Paulo - SP - Tels. : (Oil) 64-2806/852-7149 

Rua Dr Mario Ferraz, 37 - CEP 01453 - Sao Paulo - SP - Tels. : (Oil ) 210-0187/212-9004 - Telex (011 ) 36611 BYTE BR 

Estacionamento pr6prio. Abertas de Segunda a Sexta das 9 as 19 horas e aos Sabados das 9 as 14 noras. 




Pergunta - Gostaha de saber para que 

serve m as funcoes RAND e RND, uma 

vez que o manual do TK82-C nao e" 

muito claro. Se possi'vel, diem um 

exemplo dessas funcoes. (Henrique 

Soares, SP). 

MICRO SISTEMAS - A funcao RND 

gera um numero pseudo aleatorio en- 

tre e 1 , de uma sequencia de 65535 

numeros. Por exemplo: 

20 PRINT RND 

30 GOTO 20 

A instrucao RAND inicializa o RND 

na sequencia. Assim : 

10 RAND 3 

programa anterior produzira* a 
apresentacao dos mesmos numeros to- 
da a vez que o programa for rodado. 
RAND ou simplesmente RAND nao 
inicializa, mas gera no RND um nu- 
mero decorrente da contagem da quan- 
tidade de imagens enviadas a tela da 
TV 

Pergunta — Gostaria de obter informa- 
coes sobre Banco de Dados: o que sao, 
utilidade, funcao etc. (Roberto Nigir 
Adelson, RJ). 

MICRO SISTEMAS - £ um conjunto 
de dados estruturado de uma forma es- 
pecial. Normalmente esta estrutura 
tern a forma de uma eirvore na qual um 
dado tern sob sua coordenacao diver- 
sos outros dados de tipos variados. A 
grande vantagem do Banco de Dados e 
evitar a redundancia de dados, o que 
ocorre freqiientemente com dados or- 
ganizados sob a forma de arquivos, que 
6 uma forma de organizacao de dados 
muito utilizada. Para informacoes mais 
detalhadas leia o livro "Introducao ao 
Sistema de Gerencia de Banco de Da- 
dos", de Leonardo Lelllis Pereira Leite. 

Pergunta — Ten ho as seguintes duvi- 
das: os programas feitos para o NE- 
Z8000, DGT-100, TK82-C e TRS-80 
Mode I o III podem ser usados, sem ne- 
nhuma alteracao, no CP-500? E o sis- 
tema operacional CP/M e o programa 
VisiCalc sao compati'veis com o CP- 
500? (C4sar C. Margarida, SC). 
MICRO SISTEMAS - DGT-100 6 
com pat ive I com o TRS-80 Modelo I. 
CP-500 6 similar ao TRS-80 Modelo 
III. Tudo que roda no Modelo I tam- 
b£m pode ser executado no Modelo 
III, mas nem sempre o inverso aconte- 



ce, pois embora sejam basicamente se- 
melhantes, o Modelo III tern o BASIC 
mais poderoso. 

Ja" o TK82-C e o NE-Z8000 s3o si- 
milares ao Sinclair ZX81. Entre eles 
ha apenas pequenas diferencas de no- 
me com relacao a certos comandos co 
como. por exemplo: a tecla NEWLINE 
no TK82-C corresponde a tecla EN- 
TER no NE-Z8000. Assim, os progra- 
mas feitos para o TK rodam no NE; e 
os programas feitos para o DGT-100 
tamWm podem ser executados, sem 
nenhuma alteracao, no CP-500. Para 
rodar, entretanto, programas desenvol- 
vidos para o TK no CP-500 sera" neces- 
sario fazer versoes do BASIC de cada 
equipamento. 

CP/M pode ser implementado no 
CP-500 (nos EEUU ja existe o CP/M 
para o TRS-80 Modelo III), mas ainda 
n§o estS disponi'vel no Brasil. Progra- 
ma semelhante ao VisiCalc para o CP- 
500 s3o comercializados por diversas 
softhouses brasileiras, com o preco de 
aproximadamente 15 ORTNs. Mas o 
VisiCalc nao existe para o CP/M, exis- 
tem sim, outros programas (como, por 
exemplo, o SuperCalc) que apresentam 
o mesmo resultado. 

Pergunta — Sou possuidor de um Sin- 
clair 1000 com 2 !(b de RAM (sem ex- 
pansao). Resolvi fazer uma I i stage m da 
memdria desde o endereco ate" o en- 
dereco 65535 at rave's deste programa: 
10 PRINT "ENDEREQO"; TAB 10; 
"BYTE" 
20 FOR A=0 TO 65535 



30 PR IN T A; TAB 1 1; PEEK A 

35 SCROLL 

36 NEXT A 

E obtive o seguinte resultado: 
o De atd 16943, bytes em hexade- 
cimal e zeros; 

o De 16944 atd 22461, somen te ze- 
ros; 

o De 22462 at4 65535, bytes em he- 
xadecimal e zeros. 

Pergunto: por que entre os endere- 
cos 16944 atd 22461 tim somente ze- 
ros? At€ que endereco o sistema ope- 
racional do computador esta' contido? 
Seria possi'vel esc/arecer melhor a ocu- 
pacSo da memdria? E quando se usa 
linguagem de m&quina? (Nelson Lom- 
bard!, SP). 

MICRO SISTEMAS - A organizacao 
da memdria 6 explicada no manual do 
micro. Se voce n3o o tiver, procure al- 
gu6m que tenha e estude com aten- 
c3o. Para conhecer um pouco mais so- 
bre organizacao da rnemoria de equipa- 
mentos compati'veis com o Sinclair 
ZX81, leia a materia "Pequenas me- 
mdrias, grandes economias", publicada 
em MICRO SISTEMAS n9 22 (edicao 
de julho). 

Quanto a organizacao de memdria 
do endereco ao 65536, o que aconte- 
ce 6 o seguinte: de a 8192 temos o 
monitor residente (ROM). De 16384 
at^ 18432 (em equipamentosde 2 Kb, 
pois para os de 16 K o endereco final 
da memdria 6 32768), temos a drea da 
RAM (programas, varia'veis, imagem 
etc.). 

Os outros enderecos s3o apenas "es- 
pelhos", desses dois blocos. Ali n3o 
ha - memdria, apenas uma "imagem". 
Em equipamentos de 2 K a "imagem" 
6 sempre repetida de 2 em 2 K. Veja 
na figura 1 a disposicao da memdria 
em micros de 2 K e de 16 K de RAM, 
e observe que sd existe memdria onde 
estd em cinza. 



confi(ura;io 16K dc RAH 
BK 16K 



HOHITOK 
RESIDE* 
TE 

(ROM) 


C6P1A 
DO 

HON I TOR 


AREA DE 
PROCRA- 
HA 

(RAH) 


AREA DE 
PROCRAHA 


COPIA 
DO 

HONITOR 


COPIA 

DO 

HONITOR 


COPIA DA 

Area de 
procraha 


c6pia da 

AREA DE 
PROCRAHA 



ifigurafao 2K de RAH 



2R de RAH 



HONITOR 
TE 


COPIA 1 

DO L 

HONITOR [, 


! 




























COPIA 

DO 

HONITOR 


COPIA 

DO 

HONITOR 


1 

i 






; 


1 


: 


■ 


•■ 






: 











57344 65536 






Figura I - Organizagdo da memdria 
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SuperVisiCalc. 
Tudo o que o VisiCalc faz e muito mais. 



Leitura automatica de 
mem6ria disponivel 
ate512K(sem 
necessidade de VC Expand ) 



LS KIATORIO COHflOEHCIAL 



LUCROS E PERDAS 



RECElTfl LIQU1M : ":*»W 135 



PROJECAO 
1983 



L» Colunas de tamanho 
variavel 



Celulas invisiveis 
e protegidas 



1263MW 168 



Emais: 

• Totalmente 
compativel 
com VisiCalc 

• Tabulacao 
automatica 
para celulas de 
entradade dados 

• Compativel com discos 
rigidos tipo Winchester 
ou discos de 8' 

• Coluna invisivel 



- 



:W& 162 
Wk 221 

152 48 



80 Colunas (O SuperVisiCalc 
trabalha em 40,70 ou 80 colunas ) 



Prego de langamento : apenas Cr$ 150.000,00 



Com o VisiCalc, o programa de planejamento 
eletronico, centenas de milhares de usuarios no 
mundo todo acharam a melhor maneira de 
aproveitar toda a capacidade e ef iciencia de seus 
microcomputadores nos mais diversos campos. 
Essa utilizacao cada vez mais frequente fez 
aparecer uma serie de limitacoes que precisaram 
ser suplantadas. Foi assim que surgiu o 
SuperVisiCalc, urn programa criado para 
otimizar o trabalho ia iniciado por um VisiCalc. 

Um programa totalmente compativel com 
os arquivos que voce ja criou com o 
VisiCalc em microcomputadores tipo 
Apple- Unitron AP II e Maxxi-e que como 
voce pode ver na tela acima, permite 
uma flexibilidade muito maior durante 
a sua utilizacao. 



HGB 

Eletronica Ltda. 

Av. Reboupas. 3199 - CEP 05401 - Sao Paulo -SP 
Tel.: (01 1)212-9522 -Telex (01 1)21237 TGER BR 




Como o SuperVisiCalc utiliza os mesmos 
comandos do VisiCalc, voce nao precisa aprender 
nada de novo. Se voce e principiante, vai ver 
como e facil comecar com o SuperVisiCalc. 
Com seu manual de operacao totalmente em 
portugues e por sua facilidade de uso, e sem 
duvida um programa imprescindivelemtodos 
os casos onde se exige agibdade e rapidez de 
informacdes. 

Procure o seu SuperVisiCalc na Tiger 
ounaCompuShop. 

Atencao: lojas especializadas 
interessadas em revender o 
SuperVisiCalc, procurar Tiger 
ou CompuShop, distribuidores 
exclusivos para todo o Brasil. 



(CompuShop 



Rua Dr. Mario Ferraz. 37 - CEP 01453 -Sao Paulo - SP 
Tels.: (011) 210-0187/212-9004/815-0099- Telex (011) 36611 BYTE BR 

Av. Pres. Juscelino Kubilschek. 889 - CEP 04543 -Sfio Paulb - SP 
Tels.: (011)64-2806/852-7149 



£ preciso ser um as no volante para nao sofrer nenhum acidente 
neste circuito. Entao, esta" preparado? A "pole position" e" sua... 



O micro da a largada ! 




Renato Degiovani 



Oprograma F6rmula 1 6 umjogo 
que vai testar os seus reflexos e 
a sua criatividade em programa- 

cao. Ele foi projetado, em Assembler e 
BASIC, com uma estrutura onde pode 
ocorrer uma infinidade de modificacCes. 
objetivo, no entanto.e' sempre o mes- 
mo: andar o maior numero de quildme- 
tros sem sofrer um acidente. 

Para comecar grave o Monitor Assem- 
bler (n9 23 de MS). A seguir digite uma 
linha 1 REM com 232 caracteres (pode 
ser qualquer um) e entre com os dados 
do bloco Assembler. Ao terminar confi- 
ra tudo para ver se nao ha* erro. 

Agora elimine o monitor ficando so 
com a linha lea seguir digite a parte 
em BASIC. Grave na fita e teste o pro- 
grama. De umas voltas para tentir o 
circuito. Ande nas tres velocidades (o 
recorde professional € 16.459 km) e 
quando estiver farruhanzado com a me- 
canica do jogo, enta~o, sera hora de fazer 
algumas alteracOes. 

EM ASSEMBLER 

bloco Assembler funciona da se 
guinte forma: determina o formato da 



1? secao da pista (linha 0) para curva a 
direita, esquerda ou reta; testa se o carro 
vai colidir com alguma coisa; apaga o 
carro; SCROLL para baixo; identifica a 
tecla pressionada; desenha o carro em 
sua nova posicSo; conta mais um Km; 
desenha o obstaculo na pista; reiniaa a 
operacSo. Essa operacSo 6 repetida ate" 
que o carro colida com um obstaculo 
qualquer. Se houver cohsfo, entao o 
programa desenha os destrocps do carro 
e retorna ao BASIC com a quilometra- 
gem percorrida. 

Veja agora alguns enderecos impor- 
tantes: 

16514/16515 - Esse 6 o endereco de 
impressSo do carro. Ele tern que ser ini- 
cializado pelo BASIC, antes da chamada 
USR (veja linhas 1170 e 1190). Se isto 
nfo for feito o programa se perdeitf. 
16516/16517 - Quilometragem percor- 
rida pelo carro. £ preciso zerar essas po- 
sicQes antes do USR. 
16518/16519 — Arquivo da coluna de 
impressao da pista. Tamblm tern que ser 
micializado pelo BASIC (linhas 1140, 
1 150 e 1160). 

16524 - Determina o formato da pista. 
Podem ser usados apenas dois valores: 



52 e 53 (o 52 se assemelha a pista de 
terra). 

16547/16565 - Determina a largura da 
pista. Esses dois enderecos devem conter 
os mesmos valores. Podem ser usadas 
larguras de nove caracteres ate 1 8 carac- 
teres. 

16681 — Velocidade do carro. Pode ser 
usado qualquer valor de a 255. 

16692 — Distanba do obstaculo a late- 
ral esquerda da pista. Ad mite valores 
entre 1 e 7. 

16703 - Obstaculo na pista. Pode ser 
usado qualquer carater como tal e para 
uma pista sem obstaculo basta gravar 
nesse endereco (isso 6 bom para treino). 
Esses parametros devem ser seguidos 
rigorosamente, caso contrario, podem 
surgir problemas impossiveis de serem 
resolvidos. O formato da pista i o resul- 
tado de uma se"rie de fatores como tem- 
po de execucfo, velocidade do jogo e 
um ele men to aleat6rio. Alguns circuitos 
poderSo ser mon6tonos, outros diverti- 
dos e ate' mesmo engracados. O impor- 
tante 6 tentar achar um sistema que nos 
agrade mais. 
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EM BASIC 

A parte em BASIC serve para tftulos 
e inicializaca"o do jogo. A numeracSo das 
linhas na"o 6 importante e , com excecao 
das linhas mencionadas, todas as outras 
podem ser modificadas. 

Veja agora algumas linhas lmportan- 
tes em BASIC: 

1000 - Essa e" a linha do tftulo. Use o 
desenho do quadro para digiti-la. 

1140/1150/1160 - Inicializacao da pis- 
ta. Pode ser usada qualquer coluna da li- 
nha 0, respeitando-se a largura da pista e 
o limite de 32 caracteres por linha. 

1 170/1 1 80/1 190 - IniciaJizacao do car- 
ro. O carro pode correr em qualquer li- 
nha de 3 a 19. 

1200 - Desenho do carro. A parte em 
Assembler possui outro desenho seme- 
lhante. Uma modificacSo nessa linha 
nao modifica o formato do carro. 

1210/1220 - Zera o contador de qui- 
lometros. 

1340 - Chamada para o Assembler. O 
programa retoma ao BASIC com quilo- 
metragem na varidvel X (pode ser usada 
qualquer vanavel ou matriz). 

Esses sa*o alguns pontos importantes 
que podem auxiliar na modificacao do 
jogo. £ preciso ir tentando aos poucos e 
anotando os resultados ate - que o siste- 
ma fique perfeito. 

OPERACAO 

Ao rodar o programa, o sistema fara" 
a apresentacao e esperard ate" que uma 
tecla qualquer seja pressionada. Logo 
apos. sera pedida a velocidade do jogo 



Bloco Assembler 






16514 


00 


00 


00 


00 


00 


00 


2A 


86 


16522 


40 


3A 


35 


40 


CB 


47 


28 


A 


16530 


2B 


7E 


3C 


FE 


77 


20 


15 


22 


16538 


18 


12 


FE 


FF 


28 


0E 


23 


E5 


16546 


01 


0C 


00 


09 


7E 


El 


3C 


FE 


16554 


77 


20 


01 


2B 


22 


86 


40 


3E 


16562 


09 


77 


01 


0C 


00 


09 


77 


2A 


16570 


82 


40 


01 


21 


00 


A7 


ED 


42 


16578 


AF 


BE 


20 


06 


23 


BE 


20 


02 


16586 


23 


BE 


C2 


46 


41 


2A 


82 


40 


16594 


77 


23 


77 


23 


77 


09 


77 


20 


16602 


77 


2B 


77 


2A 


0C 


40 


01 


B4 


16610 


02 


09 


11 


21 


00 


E5 


19 


Dl 


16618 


EB 


ED 


B8 


AF 


06 


20 


23 


77 


16626 


10 


FC 


CD 


BB 


02 


7D 


2A 


82 


16634 


40 


FE 


F7 


20 


03 


2B 


18 


05 


16642 


FE 


EF 


20 


01 


23 


22 


82 


40 


16650 


36 


87 


23 


36 


9D 


23 


36 


04 


16658 


01 


21 


00 


09 


36 


04 


26 


36 


16666 


AD 


2B 


36 


87 


2A 


84 


40 


23 


16674 


22 


84 


40 


21 


00 


00 


3E 


08 


16682 


BC 


23 


20 


FC 


3A 


34 


40 


E6 


16690 


07 


FE 


06 


20 


0C 


06 


00 


4r 


16698 


2A 


86 


40 


09 


36 


80 


00 


7? 


16706 


00 


C3 


88 


40 


2A 


82 


40 


A7 


16714 


ED 


42 


36 


01 


23 


23 


36 


9D 


16722 


09 


36 


04 


2B 


36 


17 


2B 


09 


16730 


36 


87 


23 


36 


81 


23 


36 


IB 


16738 


ED 


4B 


84 


40 


C9 











Ldstagem BASIC 


1000 


PRINT " veja texto " 


1210 POKE 16516,0 


1 1010 


PRINT AT 18.0;"f1ICRO SISTEP1 


1220 POKE 16517,0 


1983" 


1230 FOR A=3 TO 11 STEP 2 


1240 PRINT AT A,27;"« H" 


! 1020 


IF INKEYS*"" THEN GOTO 1020 


1250 NEXT A 


1030 


CLS 


1260 FOR A=l TO 6 


1040 


PRINT AT 4,0; "VELOCIDADE DO 


1270 PRINT AT 1,25; "ATENCAO"; AT 


30G0";AT 7,8; "A = AUTO ESCOLA"; 


1,25; "MH»'MiM" 


AT 10.8;"D = D0niNGUEIR0";AT 13, 


1280 NEXT A 


8; "P 


= PR0FISSI0NAL" 


1290 FOR A=3 TO 11 STEP 2 


1050 


IF INKEYSs"" THEN GOTO 1050 


1300 FOR B=l TO 4 


1060 


LET US=INKEY$ 


1310 NEXT 8 


1070 


IF US="A" THEN POKE 16681,1 


1320 PRINT AT A,27;"B ■" 


2 




1330 NEXT A 


1080 


IF U$="D" THEN POKE 16681,8 


1340 LET X=USR 16520 


1090 


IF U$="P" THEN POKE 16681,2 


1350 LET U$=" 


1100 


CLS 


1360 PRINT AT 0,0; ul; u$,u$; AT 0, 


1110 


FOR A=l TO 21 


24; X;" KFP 


1120 


PRINT AT A, 9; "B B 


1370 FOR A=l TO 20 
1380 NEXT A 


1130 


NEXT A 


1390 PRINT AT 20,0; U$; US; "TECLE 


1140 


PRINT AT 0,9; 


PI PARA PIUDAR A VELOCIDADE" 


1150 


POKE 16518, PEEK 16398 


1400 IF INKEY|="" THEN GOTO 1400 


1160 


POKE 16519, PEEK 16399 


1410 IF INKEY$="PI" THEN GOTO 103 


1170 


PRINT AT 16,16; 





1180 


POKE 16514, PEEK 16398 


1420 GOTO 1100 


1190 


POKE 16515, PEEK 16399 


1430 SAVE "FORMULA" 


1200 


PRINT , Gtt]" l , , «SJ' 


1440 RUN ■ 



e entao comecard a corrida contra os 
obstdculos. 

Para dirigir o carro, basta utihzar a 
direcao das teclas 5 e 8 e quando houver 
um acidente, qualquer tecla pressionada 
produz uma nova corrida. 



Reneto Degiovani 4 form ado em Co muni ca- 
oSo Visual e Desenho Industrial pela Pontiff- 
cia Universidade Catdlica do Rio de Janeiro. 
Hi mais de um ano utilize um NE-Z8000 para 
cAlculos em sua Area de trabalho. 
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Nao pare seu programa 
nem perca a memoria 



Gerador Eletronico Portatil de 200 VA 





Gerador Eletronico GERATRON 

e a solucab definitiva para 

o problema de falha na reoe 

eletrica. Quando esta f altar, 

GERATRON continuara alimentando 

m ^"% ■ i a r-» r^ i a t i ° seu m ' cro como se nada 

7/)) V7 U A R D I A IN houvesse acontecido. Chame 

'///„. _..«,.. um representante hoje mesmo. 

?y Equipamentos Eletronicos Ltda. 

ALTA TECNOLOGIA EM ELETR6NICA INDUSTRIAL 

RuaDr Garn.er 579 • Rocha • CEP 20971 • RJ • Tels (021) 201-0195 26 1-6458 e 281-3295 • Telex (021) 34016 

• Sao Paulo (01 1 ) 270-3175 e 241-751 1 • Brasilia (061) 226-0133 • Salvador (071) 241-2755» Recite (0811 221-0142 

• Natal (084) 222-3212 • Belem (091) 222-5122 • Forialeza (085) 226-0871 • Cuntiba (041) 224-5616 

• Fionanopohs (0482) 23-0491 • Blumenau (0473) 22-6277 • Porto Alegre (0512J 22-5061 



G.D.M. uma loja 

com 

tratamento Pessoal 



J.R. Sysdata e 

Digitus p/entrega 

imediata TK 82, 

TK 85, CP 200, 

300 e 500 

LEASING 

e credito direto 

Assistencia 

Tecnica. 

Temos programas 

prontos em fita. 

E D PI |MF 0RmAtica limitaoa 

R. Conde de Bonfim 346 

Lj 307 - Tijuca - RJ 

Tel. 284-8744 



q <£■ .7" Peca ni Lo|» de sua 
■T *5^ 4** preferencla nossos novos 

\p -ft lancamentos para Unltron, 

P* Maxxl, Microengenho e 

z> Slmllaras. 



. 



D O M U S 

Programa* de uso domestlco contando ! 

Aganda; Orcamento: Conta Corrente a 
Llsta da Compraa para Supermercado 

CONTROLLER 

Programas da uso Adminlstratlvo contando: 
Cadastro da C 1 1 • n t a s ; Cadastro da 
Fornacedoras. Mo vl men to da Titulos: 
Contas a Pagar a Contas a Racobar 

PROGRAMMER 

Programas da uso Proflssionais contando: 
SDUMP - Editor da Arqulvos. Llsta sau 
- Arqulvo taxto na Imprassora ou 
monitor 

SLIST • Documents a Organlza saus 
Programas 

SCROSS • Pasqulsa a Relaclona Variavels 
com Llnha de Programa a exlba 
no Monitor ou Imprassora 

SOFTWARE SOI 

Sempra urn bom Programa 

SOI • informAtica ltoa. 

Av. Brig. Faria Lima, 1853 • 5 o Andar 
Talafona: 813-4031 - Sao Paulo 



M 



murm® 



• A ChipShop oferece regularmente cursos 
de: BASIC Bdsico, duracao de 15h, em uma 
semana; e BASIC Avancado, duracao de 24h, 
em duas semanas. As aulas praticas sSo minis 
tradas em laboratbrio proprio, com um com- 
putador para cada dois alunos. Informacoes a 
Rua Ofaiia, 248 (em frente ao Shopping Eldo- 
rado), fone:(011) 21 1-4261. Sa"o Paulo, SP. 

• Cursos de Linguagem BASIC sao promovi- 
dos pelo Centra de Treinamento Un'rversida- 
de-Empresa, com 24h de duracao, das 19:30 
as 22:30h. O objetivo do curso a treinar pro- 
flssionais de outras areas em Processamento 
de Dados, enfatizando o desenvolvimento de 
aplicacoes para microcomputadores. Maiores 
informacoes na Avenida Faria Lima, 99 an- 
dar. cjs. 906/909, Itaim-Bibi, tel.: (011) 
212-3361, SP. 

• O Centro de Producio da Universidade do 
Estado do Rio de Janeiro - CEPUERJ, esta 
oferecendo os seguintes cursos na Area de in- 
formAtica: Aplicacao dos Computadores Ele- 
tronicos na Engenharia, de 12/09 a 11/10, as 
2as ., 3as., 4as. e 5as. feiras, das 19:00 as 
22:00h; Tdcnicas Avancadas de Programaca"o 
de mini/microcomputadores em linguagem 
BASIC, de 03/10 a 04/11, as 2as., 4as., e 6as. 
feiras, das 19:00 as 22:00h. Inscricoes e infor- 
rnacOes na Rua Sa"o Francisco Xavier, 524, 
Pavilhfio Haroldo Lisboa da Cunha, 210 a 
214, tels.: (021) 264-8143 ou 284-8322, 
r: 2707 ou 2757, Rio de Janeiro, RJ. 

• IntroducSo ao BASIC; DOS 500 e Inicia- 
c3o a computacao (10 a 16 anos) sao os cur- 
sos que a CP Systems SC/Ltda. esta promo- 
vendo, com turmas pela manhS, tarda e noite, 
de segunda a sabado. As aulas s3o teoricas e 
praticas com a utilizaca"o de microcomputado- 
res. A CP Systems oferece tambem cursos por 
correspondent, incluido um TK82-C como 
material didatico. Inscribes: Av. Paulista 
2073, cj. 1212, Conjunto Nacional, Horsa I, 
tel.: (011) 255-5454, SP. 

• A Acacia promove regularmente curso de 
BASIC e Aplicativos. Maiores informac5es na 
Av. Paulista, 2073, cj. 216, Ediffcio Horsa, 1, 
ou pelo telefone: (011) 288-1206, Sao Paulo, 
SP. 

• A DATA RECORD - Cursos de Processa- 
mento de Dados oferece cursos de Linguagem 
COBOL, as tercas e quintas-feiras, com dura- 
cao de 50h. Maiores informacoes na Av. Saruo 
Amaro, 5450, tel.: (011) 543-9937, Sao Pau- 
lo, SP. 

• A MICRO-KIT esta" promovendo regular- 
mente cursos de BASIC para adultos e crian- 
cas e cursos aplicativos para microcomputado- 
res como VisiCalc, VisiTrend, VisiPlot, entre 
outros. A loja esta lancando, tambem, um sis- 
tema de aulas particulares solicitadas por 
clientes que desejem receber informacoes dire- 
tas e pormenorizadas sobre microcomputado- 
res. Estas aulas sera"o dadas na loja com hora- 
rio previamente marcado pelo telefone: (021) 
267-8291. O endereco da MICRO-KIT e Rua 
Visconde de Piraja, 303/210, Ipanema, RJ. 

• A Engemicro e o Centro Educacional Car- 
valho de Mendonca estao promovendo cursos 
regulares de: Programacao BASIC I; Logica 
Digital I; Logica Digital II; Microprocessador 
Z-80; Microprocessador 8080/85; Circuitos 
Logicos CMOS; Amplificadores Operacionais; 
Microprocessador 8086 e Teleprocessamento. 
As inscricoes estdo abertas atendendo a hor3- 
rios pela manha, tarde e noite ou aos sabados. 
Maiores informacfles pelos telefones: (021) 
220-8820 ou 220-7009 ou na Rua Evaristo da 
Veiga, 20, Rio de Janeiro, RJ. 



• "Analise de Formuiarios", "Organizacao e 
Metodos" e "Levantamento e Documentacao 
de Sistemas" sao os cursos que a Sys Informa- 
tion estara realizando de 21/09 a 24/09 (o prf- 
meiro), de 28/09 a 01/10 (o segundo) e de 
05/10 a 07/10 (o terceiro). Estes cursos serao 
ministrados no Hotel San Marino em Sao Pau- 
lo. Maiores informacSes pelos telefones: (01 1 ) 
210-5292 ou 81 3-4726, SP. 

• A Informax estara promovendo no mes de 
setembro os seguintes cursos: Introducao a 
Microinformdtica, a partir do dia 19; e o Cur- 
so de BASIC, a partir do dia 20. Os dois cur- 
sos terao a duracao de quatro semanas. A In- 
formax tambem promove cursos particulares 
em empresas. Maiores informacSes na Av. Bri- 
gadeiro Faria Lima, 1857, tel: (01 1) 814-0682, 
Sao Paulo. SP. 

• O DISCOVER English Courses esta intro- 
duzindo no mercado dois cursos: "Option 
Systems" e "Discover TraducSes". O primeiro 
6 um curso completo de terminologia avanca- 
da em ingles, para os executivos de PD, analis- 
tas e todos os profissionais da a>ea de infor- 
matica. Ja o segundo 6 um curso de traducoes 
tacnicas ingles/portugues — portugues/ingias, 
exclusivas tambam para a area de informatica. 
Turmas abertas. Maiores informacfies na Rua 
Professor Gabizo, 225, Tijuca, Rio de Janeiro; 
ou pelo telefone: (021) 228-2798, RJ. 

• A Fotoleo Informatica promove regular- 
mente cursos de Introducdo ao BASIC e BA- 
SIC Avancado. Os cursos tern duracao de dois 
meses, com tr§s aulas por semana. Inscricoes 
e informacoes pelo tel.: (011) 37-2702, Sao 
Paulo. SP. 

• A Bytess Digital Eletronica e Informatica 
oferece curso de Linguagem BASIC, com du- 
racao de 20h (quatro horas de aulas praticas). 
A Bytess atende tambam grupos fechados de 
empresas. Maiores informacSes na Rua Hun- 
gria, 526, Jardim Europa, tel.: (01 1 ) 210-7681 , 
Sao Paulo, SP. 

• A SUCESU-RS esta oferecendo os seguin- 
tes cursos: Piano Diretor de Informatica, de 
19 a 23 de setembro, das 19:00 as 22:00h; 
Auditoria em Processamento de Dados, de 06 
a 07 de outubro, das 09:00 as 12:00h. O en- 
dereco da SUCESU-RS a Rua dos Andradas, 
1560, 189 andar, cj. 1801, Galeria Malcon, 
90.000, tel.: 24-0053, Porto Alegre, RS. 

SEMINARIOS 

• A Universidade Metodista de Piracicaba 
promovera, de 03 a 07 de outubro, a "I Sema- 
na de Informatica". Durante essa semana se- 
rao realizadas as seguintes palestras: Microin- 
formatica, Auditoria em Processamento de 
Dados, Videotexto, Microfilmagem, entre ou- 
tras. Maiores informacSes na Rua Rangel Pes- 
tana, 762 ou pelo tel.: (0194) 33-5011, Pira- 
cicaba, SP. 

• "Sistemas Gerenciais de Banco de Dados 
para Microcomputadores — D. BASE II e 
MDBS III" a o seminario que a AD Data Edu- 
cacab e Informatica estara promovendo, de 
14 a 16 de setembro. O endereco para infor- 
macoes a Rua Joao Ramalho, 818, Perdizes, 
Sao Paulo, tel.: (011) 864-8200, SP. 

• A AssociacSo Brasileira de Administracao 
e Conservacao de Energia — ABACE estara 
promovendo em outubro o seminario: "Con- 
trole de Processos e Computacao Grafica" 
Maiores informacoes poderao ser obtidas na 
Av. Paulista, 2073, Ediffcio Conjunto Nacio- 
nal Horsa I, sala 1020, tel.: 285-2490, Sao 
Paulo, SP. 



• Para informar ao lertor sobre os cursos que 
estJo sendo oferecidos, a revista recolhe in- 
formacoes em dlversas instituicSes ou as rece- 
be pelo correio. Portanto, nao nos responsabi- 
lizamos por quaisquer alteracdes posterior- 
mente efetuadas por estas instituicoes nos 
programas ou precos. 
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CURSOS OE APIRFIIPOAMENTO 



MAIS SUCESSO WVRAVOCE! 



Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam ate voce o mais moderno ensino 

tecnico programado e desenvolvido no Pais. 



CURSO D£ ELETRONICA DIGITAL 
E 



• M L.'.i •! 



Sao mais de 140 apostilas com mformacdes completas e sempre 
atualizadas Tudo sobre os mais revolucionario CHIPS. E voce 
recebe, alem de uma solida formacdo teorica, KITS elaborados 
para o seu desenvolvimento pratico. Garanta agora o seu futuro. 






CURSO DE 
ELETKONICA E AUDIO 



Metodos novos e meditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova licSo, apostilas ilustradas 
ensmam tudo sobre Amplificadores. Caixas Acusticas. Equahzadores. 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas. Capsulas 
e Fonocaptadores. Microfones. Sonorizacao, Instrumentacao de Medidas 
em Audio. T6cmcas de Gravacao e tamb6m de Reparaclo em Audio. 
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— • • I 



CEDM 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Alimentacao 
5v/lA. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Components 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSODE 
PROGRAMAQAO EM BASK 



Este CURSO, especialmente programado, oferece os 
fundamentos de Linguagem de ProgramaQSo que domma o universo 
dos microcomputadores. DmSmico e abrangente, ensina desde o BASIC 
basico ate o BASIC mats avancado, inclui'ndo nocoes basicas sobre 
Manipulacao de Arquivos. T^cnicas de Programacao. Sistemas de 
Processamento de Dados, Teleprocessamento. Multiprogramacao e 
T^cnicas em Linguagem de Maquina. que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 



CEDM 1 • KIT de Ferramentas. CEDM 2 - KIT Fonte de Alimentacao 
♦ 15 15/1A. CEDM 3 KIT Placa Experimental 
CEDM 4 - KIT de Componentes. CEDM 5 - KIT Pre-amphficador 
Estereo. CEDM 5 KIT Amphficador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo proprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM coloca d sua disposicflb uma 
equipe de professores sempre muito bem acessorada. Alem disso, voc6 
recebe KITS preparados para os seus exercfcios praticos. 

Agil, moderno e perfeitamente adequado a nossa realidade, os CUR- 
SOS CEDM por correspondencia garantem condicOes ideais para o seu 
aperfeicoamento profissional. 



s 






GRATIS 



Voc£ tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias vocfi recebe nossos catalogos de apresentacao. 



KIT CEDM Z80 

BASIC Cientlfico. 

KIT CEDM 280 

BASIC Simples 

Gabarito de Fluxograma 

E-4. KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 



^PlHlM Avenkla Sfo Paulo, 718 Fone (0432) 23-9674. 
U.l_.!_ , l I CAIXA POSTAL 1642 CEP 86100 Londr.na PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 

Sollclto o mail rapido possivel informacdes sem compromijso sobre o 

CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

MS 



A aritmStica decimal norma/ e a aritmitica bina"ria de ponto 
flutuante do BASIC nao sao a mesma coisa. Veja por que. 



erro de truncamento 
em BASIC 



Akeo Tanabe 



N 



a ahtm&ica decimal normal, uma expressao como 2,0 
- 0,2 . 10,0 =0,0 constitui-se numa verdade matemi- 
tica. Entretanto, ao se avaliar o pnmeiro membro da 
identidade com a antmdtica de ponto flutuante da linguagem 
BASIC, essa expressao deixari de representar uma verdade. 
Isso ocorre porque nem sempre o zero decimal corresponde, 
em BASIC, a um zero computacional. 

objetivo desse artigoe mostrar por que a identidade mate- 
matica nao e" preservada quando se usa a aritmdtica de ponto 
flutuante do BASIC. Esse quase absurdo matematico pode ser 
explicado pelo erro de truncamento, que explicaremos a seguir 
fazendo uso do conhecimento sobre progressoes geomdtncas, 
materia essa constante do ensino da Matematica do Segundo 
Grau. 

A ARITM ETIC A DO BASIC 

O leitor deve estar lembrado das dizimas periodica*, na 
antmetica ensinada nos cursos de Pnmeiro Grau. Nestas, um 
conjunto de algansmos se repete indefinidamente. A fracao 
(23/99), por exemplo. gerard a dizima periodica 0,23. traco 
em cima do numero 23 6 usado para indicar que ele se repete 
indefinidamente. Assun, 0,55 =0,23232323... 

Se se restnngir apenas ao campo dos numeros reais, este 
numero nao tern representagdo exata. Ele somen te terd repre- 
sentacao exata no campo dos numeros racionais ou quando 

for escnto como a fracao (23/99). 

A linguagem BASIC, quando tratando valores numeYicos, 
nao trabalha na base decimal. Ela usa a base dois e trabalha no 
campo dos numeros reais, nao com os numeros racionais. Nes- 
te trabalho, sera mostrada apenas a aritmltica dos numeros 
reais, deixando de lado a antmetica dos numeros inteiros. Co- 
mo a dizima periodica (ou o seu equivalente em uma base 
qualquer) pode ser estudada como um problema especial de 
progressao geom^tnca (P. G.), optou-se por um tratamento 
mais generalizado. 



Seja o numero: 



0,a.a_. ..a. 



1"2 



da base B. 

Esta represent acao pode ser explicitada na forma: 



-l 



-2 



B -Ui*T) B -(n + 2) 



+ ... 



'"" B -2n + B -(2n+l) + B ~(2n+2) + "• 

isto 6, os algansmos a, , a 2 , ..., a n da base B se repetem indefi- 
nidamente. 

A especificacao explicita do numero facilita a visuahzacao 
da expressao como a soma dos termos de uma progressao geo- 
mdtnca (P. G.). 

Conhecidos o pnmeiro termo da P. G. e o valor da razao, 
poderemos determinar o limite para o qua! tende essa soma m- 
fmita. Como podemos ver, o pnmeiro elemento desta P. G. 6: 



onde 

A= a,.B n_1 + a..B n ~ 2 + ... + a_.B° ou A* (a, a. ...a _). 



'1— ' "2 

A razSo q, menor que 1 , 6 dada por 



'1~2-- n'B 



q= 



B* 



sendo a, o pnmeiro termo da P.G. e q a razao, a soma e dada 
por: 



s= 



1-q 



56 
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Aplicando esta f6rmula para o nosso caso, vem : 

B n -1 

Esta 6 tamWm, alias, a f6rmula gendnca para determinar a 
geratriz (numero racional para o qua] a soma tende no hmite) 
do numero 



Exemplo: 



(0.a,a 2 .. 



(0,3) 



16 



Neste caso, os parametros a serem considerados na f6rmula 
sao B =16, n=l e a, =3. A geratriz serf: 



s= 



3.16' 
16-1 



_3_ 
15 



ou S= 



donde o numero (0,3)i 6 6 gerado pelo racional (1/5) ou, 
ainda, pelo valor (0,2)i . Logo, o numero real 0,2 da base 
decimal, quando convertido para_a base 16, darf ongem a uma 
fracao de infinitos algansmos: (0,3)i 6 . 

Os computadores de grande porte da IBM usam a base 16 
na representacao interna dos numeros reais. Port an to. para 
esses computadores o valor (0,2)i na"o terf representacao exa- 
ta. Consideremos agora urn exemplo na base 2, utilizada na 
lmguagem BASIC dos microcomputadores. Seja o numero 



(0,001 1 ) 



0,001 1001 1001 1 



Os parametros a serem considerados sao: B =2, n =4 e a, =0, 
a 2 =0, a 3 =1 e a4 =1 . Aplicados na f6rmula, vem: 



s= 



0.2 3 + 0.2 2 + 1.2 1 + 1.2' 
2 4 -1 



3 

15 



ou S = 



Portanto, o mesmo valor (0,2)i £ responsavel pela geracao de 
(0,001 1) 2 . Assim, quando da conversao do numero (0,2) na 
base decimal para a base 2, o BASIC nao terf condicSes para 
represenrf-lo de maneira exata. Por mais que aumente o nume- 
ro de algansmos significativos, a imprecisao nao serf nunca 
eliminada. Por isso, na representacao desse numero em BASIC 
hi urn erro de truncamento inerente a antme'tica usada. Inter- 
namente, pois, o valor 0,2 da base decimal se transformou em 
um valor equivalente, do tipo 0,199999 . . .. Mais adiante, sera - 
possivel determinar exatamente o valor da expressao. 

REPRESENTACAO INTERNA 

Para exempkiicar a representacao mterna dos numeros reais 
em BASIC, seja ainda o numero 0,2 na base decimal. Vejamos o 
seguinte: na base 2, este valor deverf ser representado por 



(0,0011) 2 = (0,001100110011 ) 2 

Em BASIC, entretanto, os zeros nSo significativos sSo ehmi- 
nados. Para que seja feita essa ehminacao, a virgula deverf ser 
deslocada de duas casas para a direita. TamWm se deverf fazer, 
evidentemente, uma conecao que corresponds a este desloca- 
mento, para que o valor nao se altere. Assim, 



Internamente, o numero 6 representado em duas partes: a 
mantissa, onde e representada a parte fracionana do numero e 
na qua] o algansmo mais sigmficativo e sempre igual a 1 (repre- 
sentacao normalizada); e a caracteristica, onde 6 representada 
a parte correspondente ao expoente da base 2. 

Para a mantissa, estao reservados 3 bytes. Na forma norma- 
lizada, a virgula e o zero que a precede nao precisam ser repre- 
sentados e podem ser subentendidos. Como o algansmo mais 
sigmficativo da mantissa 6 sempre igual a 1, inteligentemente 
em BASIC ele tambe'm nSo 6 representado, sendo, pois, suben- 
tendido. O seu e spa 90 6 ocupado pelo sinal do numero. 

Assim, o numero de bits (algansmos de base 2) reservados 
para a mantissa 6 igual a 24. Quando da reahzacao de operacao 
antme'tica, este algansmo subentendido 6 restaurado. A 
mantissa conespondente a 0,2 na base decimal 6, portanto, 

010011001100110011001100 

O bit zero mais sigmficativo conesponde ao sinal positivo e 
esta ocupando o lugar do algansmo 1 subentendido. 

Para a representacao da caracteristica, o BASIC reservou 
apenas um byte. Com um byte pode ser representado um valor 
entre e 255 e este intervalo devera ser igualmente repartido 
entre os expoentes positivos e negativos. Assim, ao expoente 
efetivo da base 6 sempre somado o valor 1 28 (128 6 a metade 
de 256) e o valor resultante 6 representado, em base 2, na por- 
ca"o reservada a caracteristica. O menor expoente negativo 6, 
dessa forma, igual a -128 que, somado a constante +128, 
resulta na caracteristica zero. O maior expoente positivo 6 
igual a +127, que conesponde a caracteristica 255. 

A caracteristica de 0,2 da base decimal serf, portanto, em 
BASIC: 

0111 1110 



que conesponde ao valor 126, resultado da soma de -2 com 
+128 (na base decimal). Em funcao da representacao mterna 
do numero real em BASIC, pode-se determinar o valor exato 
com que 0,2 decimal foi armazenado. 

Feitas as operacoes em base decimal e usando todos os alga- 
nsmos significativos necessdnos, a mantissa representada em 
BASIC conesponderf ao valor 

0,7999999523162841796875 

Considerando-se que o expoente efetivo do numero € -2, o 
valor da mantissa ainda deverf ser dividido por 4. Com isso, o 
valor realmente representado em BASIC como 0,2 decimal serf 

0, 19999998807907104 4 92187 5 

Como os valores 2,0 e 10,0 da expressfo especificada no 
lni'cio deste artigo sao representados de maneira exata em 
BASIC, a avahacao da expressSo redundarf no valor - especifi- 
cado na base decimal - igual a: 

0,0000001 1920928955078125 

Ve-se, portanto, que o resultado da expressao nSo cones- 
ponde, de maneira alguma, a um valor igual a zero. De fato, o 
zero decimal n5o se transformou em zero computacional. ■ 



(0,001 1 ) 



(0,1 100) 



.2 -2 = (0,110011001100...). .2~ 2 



O BASIC, antes de representar internamente o numero real, 
coloca-o na forma: 



0,1dddddd * 2 



Trabalhando na Area da Informs" tica desde 1963, Akeo Tanabe 4 Enge- 
nhairo Eletrdnico pelo Instituto Tacnoldgico da Aeronautics (1964) a 
Mestre am CiSncias am Informatics pela Pontiffcia Universidada Catdli- 
ca do Rio de Janeiro (1970). 
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AplicacSes em 
Saneamento Basico 



Apresentamos em conjunto duas aplicacoes especi'ficas para a 

area de Saneamento Basico ( Engenharia Hidraulica) que nos 

foram enviadas por engenheiros da SABESP. 

Uma e um programa para a calculadora HP-41C que executa 

calculus relativos a diques de terra para lagoas estabilizadoras 

de esgotos. A outra aplicacao ja e um programa em BASIC, 

desenvolvido no micro PC-1 21 1 para o dimensionamento 

de trechos de redes de distribuicao de agua. 



Eventualmente, MICRO SISTEMAS abrira suas paginas 
para aplicacoes especi'ficas como estas, na forma de 
pequenos blocos de dois ou tres programas ou artigos 
sobre um mesmo tenia basico, abrangendo areas distintas 
como Medicina, Direito, Engenharia, Administracao etc. 
Isto possibilitara a divulgacao de programas e artigos que, 
apesar de suas especificidades, poderao ser uteis para os 
profissionais destas areas. 



Aplicacao 1 — HP-41C 



Hilton Felicio dos Santos 




objetivo deste programa e realizar o calculo do volu- 
me dos diques de terra formadores de uma lagoa de 
estabilizacao de esgotos sanitanos atrave's de uma cal- 
culadora programavel HP41C, calculando-se tambem a profun- 
didade do corte necessano no fundo da lagoa para gerar o vo- 
lume de terra que sera utihzado para a construcao dos diques. 
Para os leitores nao famibanzados com o objeto do artigo. 
uma lagoa de estabilizacao e um processo largamente utibzado 
para tratamento de esgotos sanitanos urbanos em pequenas co- 
munidades. A luz solar, a fotossi'ntese das algas e os microorga- 
nismos presentes na lagoa encarregam-se de consumir e estabili- 
zar a materia organica presente nos esgotos, enquanto o repou- 
so da agua represada promove sua decantacao. efeito conju- 
gado e o de um li'quido hgeiramente esverdeado (devido as 
algas) mas hvre de odores e pnncipalmente de cerca de 909r de 
sua DBO micial. (A DBO - Demanda Bioquimica de Oxigenio 

- e uma medida usada pelos sanitanstas para avahar a polui- 
c3o das aguas.) li'quido tratado e entao descarregado num rio 
proximo, sem problemas para a vida aqua'tica. 

VOLUME DOS DIQUES 

Para o calculo do volume dos diques de uma lagoa de estabi- 
lizaca"o quadrada ou retangular, usa-se uma tabela de valores 
que e" funcao da area do espelho d'agua e dos demais parame- 
tros indicados na figura 1 . 

programa tambem calcula a escavacSo necessana para ge- 
rar o volume dos diques. Em principio, admite-se que a area a 
ser escavada seja a mesma do fundo da lagoa. Se esta for made- 
quada. sera uma area de emprtstimo em qualquer lugar apro- 
pnado, com as mesmas dimensQes do fundo da lagoa. 

Para a formaca"o dos quadros, foram assumidos os seguintes 
valores : 

Para os Quadros 1, 2, 3 e 4 

- Fator de empolamento da terra escavada (Fe) - 1 ,30 

- Fator de compactacao dos diques (Fc) - 0,80 



- Altura dos diques (H) - 2,30 

- Profundidade (P) - 1 ,80 

- Borda hvre (B) - 0,50 

- Largura da crista (L) - 2.00 

- Talude externo (I/He) - 1 :1 ,5 

Para o Quadro 1 

- Forma da lagoa - Quadrada 

- Talude interno (I/Hi) - 1 :3 

Para o Quadro 2 

- Forma da lagoa - Quadrada 

- Talude interno (I /Hi)- 1:2 

Para o Quadro 3 

- Forma da lagoa - Retangular 

- Proporca"o dos lados — a'- 2b' 

- Talude interno (1/Hi) -1:3 

Para o Quadro 4 

- Forma da lagoa - Retangular 

- Proporca'o dos lados - a'- 2b' 

- Talude interno (1/Hi) — 1:2 

Os quadros servem como exemplo do processamento do 
programa. Os leitores podem, entretanto, formar outros qua- 
dros, vanando um ou mais dos parametros que indicamos. 

A area do espelho d'agua necessana e determinada pelo en- 
genheiro samtansta em funcSo da carga organica do projeto. 
As avahacdes que apresentamos a seguir sSo feitas em fun- 
cao da area do espelho d'agua. 

Volume = Base me"dia x Penmetro (veja figura 1) 

V = Bm . 2 (a + b) 
a = a' + 2x 

x = Borda Hvre . (Hi) + L/2 =(B) (Hi) + L/2 

V = Bm . (2a + 2b) = Bm. (2a' + 4x + 2b' + 4x) 
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Figura 1 

V = Bm . (2a' + 2b' + 8x) 

V - Bm . (2a* + 2b' + 8 (B) (Hi) + L/4) (I) 
Determinando a' e b' em func5o da area (A) do espelho 

d'agua, teremos: 



(a' ) (b') - A 
a' - 2b' 



f (2b')(b') - A Cb' = (A/2)' /2 f 

\ \ La' - 2(A/ 



1/2 



Substitumdo a' e b' em V, temos: 

Vr - Bm . |j.(A/2) ,/2 ♦ 2(A/2)' /2 + 8(B) (H i ) ♦ L/^ 
Vr = Bm . (6(A/2)' /2 + 8(B) (Hi ) ♦ L/<j] 

E como temos que: 

(H) (Hi ) + L + (H) (He) + L 



Bm 



. H 



Bm = ,5 [H 2 (Hi + He) + 2 LHJ 

Para uma lagoa retangular em que a' = 2b\ teremos: 

(It) Vr - (H 2 (HI ♦ He) + 2 LHJ [3(A/2)' /2 ♦ <.(B)(H1) ♦ L/| 



O volume dos diques € dado em funcffo de: 
H = altura dos diques 

Hi = afastamento horizontal unita^o do talude intemo (1 :Hi) 
He= afastamento horizontal unitano do talude extemo (1 :He) 
L = largura da crista do dique 
A = area do espelho d'agua 
B = borda hvre 



DISCRIMINACAO 


COMANDO 


VISOR 


1. Inicio do processamento. 
quesito no visor indaga 
se o valor Hi-2,00 ■ e a- 
ceitavel. Sc for pressio- 
ne R/S, caso contrario, o 
novo valor e R/S. 


XEQ LAG 
3 R/S 


111 1:1 )? 2,00 
UK III )? 1.50 


:)a mesma forma aceita-se' 
ou rejeita-se HK-1,50. Es 
te valor corrente e acel- 
tavel 


R/S 


H. DIQUE? 2,30 


3. Largura da crista 


R/S 


L. CRISTA? 2,00 


4. Superficie livre (m ) 


R/S 


S. LIVRE? 35.000 


5. Borda livre 


10.000 R/S 


BORDA? 0,50 


6. Profundldade d'agua 


R/S 


PROF. AGUA? 1,80 


7. Fator de empolamento 


R/S 


. Pe? 1,30 


8. Fazer opcao de calculo: 
A area superficial de 
10.000 m e de uma lagoa 
retangular (RET) ou qua- 
drada (QUAD). 
Pressione a tecla amarela 
e a ou b conforme o caso. 


tecla amarela e b 


RBT=a/QUAD-b 
LADO- 100 


9. Volume geometrico dos ta 
ludes 

Volume de corte 
Profundldade do corte no 
fundo da lagoa ou em area 
de igual dimensao. 


R/S 
R/S 

R/S 

R/S 


VQ-4.19S 
VQ/PeFcM.0 33 

P. CORTE* 1 . 12 
RBT=a/QUAD»b 


10. Repetlr os itens 8 e 9 para 
calculo das demais linhas do 
Quadro n» 1 . 






1 1 . Todoa parametros podem ser 
acessados e modi f icados 1 
ou confirmados) aleatoria- 
mente, pressionando-se as 
teclas (modo USES) A a J 
respect ivamente correspon- 
dentes a inicializacao fei 
ta dos itens de 1 a 7. Exem 
plo: 

Se desejar verificar a 2a. 
linha do Quadro n« 4: 

Lado maior do retangulo 

Lado menor do retangulo 

Volume geometrico dos ta 

ludes 

Volume do corte 

Profundldade do Corte 


D 
I 

A 

2 R/S 

E 

IS. 000 R/S 

J 

tecla amarela e a 

R/S 

R/S 
R/S 
R/S 


L. CRISTA? 2,00 
PC? 0,80 

111 1: ? 3,00 

HE»1: ? 1,50 

S. LIVRE? 10. 000 

BORDA? 0,50 

RET«a/QUAD-b 

a-173 

b-87 

VH---6. 104 

VR/PeFc-5.869 

P.CORTB=0.45 


12. Correspondence Comandos/ 
Parametros: 

A (Hi) - Afastamento horizontal do talud'i interno 
B (He) - Afastamento horizontal do talude externo 
C IH ) - Altura do dique 
D (LI- Largura da crista 
E (A 1 - Area da superficie livre de agua 
P (B ) - Borda livre 
G (PI- Profundidade d'agua 



Figura 2 - Instrucoes de ux> do programa LA G. 
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aplicaqOes em saneamento bAsico 



























Area 


LADOS 


DIQUB 


CORTK 


prop. coRTB 




AREA 


LADOS 


DIOUB 


CORTB 


PROP. CORTB 






- 2 


■ 


- 3 


» 3 


IK 




2 


ill 


m 3 


■ 3 


m 




10.000 


100 


4.195 


4.033 


1.12 


10.000 


141x71 


6.203 


5.965 


0.76 




15.000 


122 


5.097 


4.901 


0.85 




15.000 


173x87 


/.557 


7.267 


0.59 






20.000 


141 


5.859 


5.633 


0.71 




20.000 . 


200x100 


8.699 


8.364 


0.50 






25.000 


158 


6.529 


6.278 


0.62 




25.000 


224x112 


9.705 


9.332 


0.43 






30.000 


173 


7.135 


6.861 


0.55 




30.000 


245x122 


10.614 


10.206 


0.39 






35.000 


187 


7.693 


7.397 


0.50 




35.000 


265x132 


11.450 


11.010 


0.36 






Quadro 1: Lagoa a 'b, 1 / 


Hi '1:3. 








Quadro 3: Lagoa a '2 b, 1 /Hi '1:3. 










area 


LADOS 


uiyiiK 


CORTB 


PROP. CORTB 




AREA 


LADOS 


DIOUB 


CORTB 


PROP. CORTB 






- 2 


■ 


- 3 


. 3 


■ 




- 2 


. 


3 


n, 3 


m 




10.000 


100 


3.367 


3.238 


0.80 


10.000 


141x71 


5.002 


4.809 


0.56 




15.000 


122 


4.102 


3.944 


0.63 




15.000 


173x87 


6.104 


5.869 


0.45 






20.000 


Ml 


4.721 


4.540 


0.53 




20.000 


200x100 


7.033 


6.762 


0.38 






25.000 


158 


5.267 


5.064 


0.46 




25.000 


224x112 


7.851 


7.549 


0.33 






30.000 


173 


5.760 


5.5 39 


0.42 




30.000 


245x122 


8.591 


8.261 


0.30 






35.000 


187 


6.214 


5.975 


0.38 




35.000 


265x132 


9.272 


8.915 


0.28 






Quadro 2: Lagoa a~b, 1 jt 


H ^1:2. 








Quadro 4: Lagoa a=2b, 1/Hi '1:2. 







Assim, para uma lagoa quadrada a' =b\ voltando em (I), 
tcmos: 



Bm . (4a' + 8(B) (HI ) + LM) 



V = Bm 

q 



(MA) 



1/2 



+ 8(B) (HI) + 1/4) 



Donde : 



(III) V q - \h 2 (HI + He) ♦ 2 Lh] . [2 (A) ,/2 ♦ 4(B)(HI) ♦ L/8J 

Se for extraido da caixa de emprtstimo este volume geoml- 
trico V, o total de terra obtida ocupara" um volume final de 
cerca de 30% superior ao calculado, devido ao empolamento, 
ou a perda da compacidade natural do solo, donde teremos: 

V = V x 1 ,30 

Por outro lado, o volume V sera" compactado durante a 
construcifo dos diques, reduzindo-o para (admitindo-se 20% 
de compactacio): 

V' ' = ,8(V x 1 ,30) 

Desta forma, o volume V desejado sera" afetado pela combi- 
na93o dos dois fatores. Se o empolamento for maior que a 
compactado, deverd ser extraido da caixa de empre'stimo um 
volume igual a 96% do calculado, se forem usados os valores 
exemplificados: 



V = (0,8) (1,30) (K) V 



De modo que : 



(0,8) (1 ,30) <K) = 1 

1 



K = 



(0,8) (1,30) 



= 0,96 



De uma forma geral, deve-se multipbcar o volume V calcula- 
do pelo inverso do produto dos fatores de empolamento e 
compactacio, tornados em relacSo ao volume unitano. 

O cdlculo da profundidade de escavacSo no fundo da lagoa 
ou numa a"rea de mesmas dimensOes que possua subsolo favo- 
ravel a construcf o dos diques 6 : 

Volume do corte - Volume calculado 



para os diques x 



1 



(Fe)(Fc) 



A profundidade a escavar sera" o volume acima (Vr ou Vq, 
conforme o formato da lagoa) dividido pela area do fundo. Es- 
ta ultima, expressa em funcao do espelho d'dgua conhecido, e": 



(Fe) (Fc)(Af) 



Af - (a 1 ') (b' ') (ver fig. I) 
a' '» a' - 2y - a' -2(P) (HI ) 
b"» b' - 2(P) (Hi) 

H foram determinadas as expressoes de a' e b' em funcflo 
da area do espelho d'agua, donde temos: 

A fr - [2(A/2)' /2 -2(P)(Hl]] |?A/2)' /2 -2(P)(Hl]| 

E para a lagoa quadrada: 

A fq " H A / 2 >"* -2(P) CHll] 2 

Donde: 



pr 



pq 



Vr 



(Fe)(Fc) [2(A/2) 1/2 -2(P)(Hlj] . [a/2)' /2 -2(P)(Hij] 
Vq 



(F«)(Fc) [(A/2) 1/2 -2(P)(Hi|] 



^nr 
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Sendo que: 
Vr ■ volume calculado para o dique da lagoa retangular (II) 
Vq = idem para a lagoa quadrada (III) 
Fe = fator de empolamento maior ou igual a 1 . 
Fc = fator de compactacSo menor ou igual a 1 . 
A = drea do espelho d'agua 
P = profundidade da lamina d'agua 

Hi = afastamento horizontal para a altura unitdria do talude 
interno 

O PROGRAMA 

programa que apresentamos em anexo.denominado LAG, 
foi feito para a HP41C e calcula as seguintes dimensoes: 

Vr = volume geome'trico dos diques de uma lagoa retangular 
Vr/FeFc = volume de corte na area de fundo da lagoa (ou em 
uma area de dimens6es equivalentes) para construcSo dos di- 
ques de Vr 

pr = profundidade do corte Vr/FeFc 
Vq = volume geome'trico dos diques de uma lagoa quadrada 
Vq/FeFc = volume de corte na area de fundo da lagoa (ou em 
uma drea de dimensdes equivalentes) para construcao dos di- 
ques de Vq 
pq = profundidade do corte Vq/FeFc 



A configuraca'o minima necessdna para usar o programa 
LAG 6 a da HP-41C com um m6dulo de mem6ria, nao sendo 
preciso uma impressora. 

Uma vez executado SIZE Oil, deve-se gravar as instrucoes 
e colocar a maqinna no modo USER. Os comandos A a J e a e 
b sao usados para introducao e/ou aceitaca"o dos dados. 

A avaliacffo do corte necessario para formar os taludes 6 fei- 
ta pressupondo-se que o terreno da obra seja piano (corte de 
profundidade unica) e horizontal (taludes interno e extemo de 
saia constante em todo o perimetro). 

A titulo de exemplo, considere-se a formacSo do Quadro I 
com os parametros aama indicados nas instrucOes para o 
usuirio (ngura 1). 

Deve-se notar que ao atribuir-se em niimeros redondos a 
carga organica de DB0 5 20 de 50 gr/hab, cada quilo de DBO 
aplicado equivale a 20 habitantes servidos. Com uma taxa de 
150 kg/DBO por hectare por dia, a cada hectare de superfine 
livre das lagoas correspondem 3 mil habitantes, ou seja, as la- 
goas dos Quadros 1 a 4 atendem de 3 a 1 0,5 mil habitantes. 

CONCLUSAO 

Embora dirigido para lagoas de estabilizacSo, este programa 
pode tambe'm ser utilizado para a avaliacSo de volumes de 



Calculode diques de uma lagoa estabilizadora deesgotos 



01+LBL "LAG" 

02 CF 28 

03 SF 29 
044LBL A 

05 CF 22 

06 FIX 2 

07 H HI=1:< >?" 

08 ARCL 00 

09 PROMPT 

10 FS?C 22 

11 STO 00 
12+LBL B 

13 CF 22 

14 FIX 2 

15 "HE=1:< >?" 

16 ARCL 01 

17 PROMPT 

18 FS?C 22 

19 STO 01 
204LBL C 

21 CF 22 

22 FIX 2 

23 "H. DIQUE?" 

24 ARCL 02 

25 PROMPT 

26 FS?C 22 

27 STO 02 
284LBL D 

29 CF 22 

30 FIX 2 

31 "L. CRISTA?" 

32 ARCL 03 

33 PROMPT 

34 FS?C 22 

35 STO 03 
364LBL E 

37 CF 22 

38 FIX 

39 "S. LIVRE?" 

40 ARCL 4 



41 PROMPT 

42 FS?C 22 

43 STO 04 

44 FIX 2 
454LBL F 

46 CF 22 

47 FIX 2 

48 "BORDA?" 

49 ARCL 05 

50 PROMPT 

51 FS?C 22 

52 STO 05 
534LBL G 

54 CF 22 

55 FIX 2 

56 "PROF. AGUA?' 

57 ARCL 06 

58 PROMPT 

59 FS?C 22 

60 STO 06 
61+LBL H 

62 CF 22 

63 FIX 2 

64 "Fe?" 

65 ARCL 7 

66 PROMPT 

67 FS?C 22 

68 STO 7 
69^LBL I 

70 CF 22 

71 FIX 2 

72 "Fc?" 

73 ARCL 08 

74 PROMPT 

75 FS?C 22 

76 STO 08 
77^LBL J 

78 "RET=a/QUAD=b 

79 TONE 9 

80 PROMPT 



81+LBL a 

82 2 

83 XEQ 04 

84 * 

85 FIX 

86 "a=" 

87 ARCL X 

88 PROMPT 

89 LASTX 

90 "b=" 

91 ARCL X 

92 PROMPT 

93 XEQ 02 

94 XEQ 04 

95 3 

96 * 

97 + 

98 XEQ 01 

99 * 

100 "VR=" 

101 XEQ 00 

102 "VR/FeFc=" 

103 XEQ 05 

104 / 

105 XEQ 00 

106 FIX 2 

107 XEQ 04 

108 STO 09 

109 2 

110 * 

111 XEQ 03 

112 STO 10 

113 - 

114 RCL 09 

115 RCL 10 

116 - 

117 * 

118 / 

119 "P.CORTE=" 



120 XEQ 00 

121 GTO J 
122+LBL b 

123 FIX 

124 RCL 04 

125 SQRT 

126 "LADO=" 

127 ARCL X 

128 PROMPT 

129 XEQ 02 

130 XEQ 04 

131 2 

132 * 

133 + 

134 XEQ 01 

135 * 

136 FIX 

137 "VQ=" 

138 XEQ 00 

139 "VQ/FeFc= 

140 XEQ 05 

141 / 

142 XEQ 00 

143 FIX 2 

144 XEQ 04 

145 XEQ 03 

146 - 

147 X+2 

148 / 

149 "P.CORTE= 

150 XEQ 00 

151 GTO J 
152^LBL 00 

153 TONE 9 

154 ARCL X 

155 AVIEW 

156 STOP 

157 RTN 
1584LBL 01 



159 RCL 02 

160 Xt2 

161 RCL 00 

162 RCL 01 

163 + 

164 * 

165 RCL 03 

166 RCL 02 

167 * 

168 + 

169 RTN 
1704LBL 02 

171 RCL 00 

172 RCL 05 

173 * 

174 4 

175 * 

176 RCL 03 

177 8 

178 / 

179 + 

180 RTN 
1814LBL 03 

182 RCL 06 

183 RCL 00 

184 * 

185 2 

186 * 

187 RTN 

188 LBL 04 

189 RCL 04 

190 2 

191 / 

19 2 SQRT 
193 RTN 
194^LBL 05 

195 RCL 07 

196 RCL 08 

197 * 

198 END 
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aplicaqOes em saneamento bAsico 



compensaca"o entre corte e aterro na construcSo de estradas de 
rodagem. A estrada seria do tipogrei'de elevado, com as caixas 
de empre'stimo situadas ao longo da plataforma. 

solo de implantacao sena piano e a plataforma horizon- 
tal, para vahdade da hipotese de uma altura de crista (no caso, 
plataforma) constante e considerando-se a mesma secSo me'dia 
ao longo do trecho de interesse. 

Ao comando J (RET= a/QUAD= b), deveria ser feita a opcSo 
QUAD (tecla amarela e b), interpretando-se o lado da lagoa de 
forma quadrada, como igual a quarta parte da extensao do tre- 
cho da rodovia sob analise. A caixa de empre'stimo teria a al- 



tura indicada pela profundidade de corte (P .CORTE) e o fun- 
do uma area igual a calculada pela expressao : 

Af = [[A/2) ' /2 - 2 (P)(HiJ * 

Onde A, quadrado dos lados (quarta parte do trecho) assu- 
me o papel de uma constante de calculo. 



Hilton Felfcio dos Santos 4 Engenheiro Civil formado pela UFMG em 
1964, com diversos cursos de extensSo na Califdrnia e no JapSo, e tra- 
balha na SABESP — Companhia de Saneamento Basico do Estado de 
Sao Paulo, no cargo de Superintendents. 



Aplicacao 2 — PC-1211 



Antonio Carlos Franco Zuccolo 



Este programa foi elaborado para o dimensionamento 
de cada um dos trechos componentes de uma rede de 
distnbuicao de <igua do tipo rarmficada, pelo metodo 

de seccionamento ficticio a partir de uma rede com pressao 
disponivel conhecida. Sua aplicacao volta-se para projetos de 
implantacao de redes em loteamentos, conjuntos habitacionais 
ou mesmo em projetos de amphacao. 

O programa foi escrito em hnguagem BASIC no Pocket 
Computer Sharp PC-1211 e utiliza-se da fdrmula HAZEN- 
WILLIAMS para o calculo da perda de carga e da expressao V 
max 0,6 +1,5D, onde V max 6 a velocidade maxima (em m/s) 
permitida para o diametro escolhido e D 6 o diametro interno 
(em metros) do tubo escolhido. 



programa foi feito para operar com vazao de ate* 150 1/s, 
permitmdo a utilizacfo de tubos PVC e F9 F9, de acordo com 
a tabela da figura 1 . 

Como recurso extra, o programa di uma mensagem onen- 
tando sobre a possibilidade do diametro ser menor que o esco- 
lhido toda vez que a velocidade for inferior a 0,30 m/s. 

Antonio Carlos Franco Zuccolo e" Engenheiro Civil com cursos de espe- 
cial izacSo em Engenharia Sanitaria e Ambiental. Atualmente, Antonio 
Carlos trabalha na SABESP — Companhia de Saneamento Basico do Es- 
tado de SSo Paulo e esta" preparando sua dissertacSo de mestrado em 
Saude Publice, onde Inclui a aplicacBo de um Sistema de Gerenciamento 
de Bancos de Dados — SGBD como instrumento para administracSo de 
recursos financeiros em obras de saneamento. 



Dimensionamento de trechos de redes de distribuicao de agua 



5: REM * ZUCCOLO 

,CX.P0STAL17 

11-SP* 
10: "A": PRINT "A 

GUA" 
20: INPUT "NT="; 

G,"P D M(MCA 

)«";P,"C T M 

«";M,"C T J= 

";J, "EXT(M)= 

";L, "VAZAO (L 

/S)=";Q 
30 INPUT "CODIG 

O DO MATERIA 

L=";V 
31: IF Y=00GOSUB 

500 
32: IF Y=01GOSUB 

502 
33:IF Y=02GOSUB 

504 
34: IF Y=03GOSUB 

506 
35:IF Y=04GOSUB 

508 
36:IF Y=05GOSUB 

510 
37: IF Y=06GOSUB 

512 
38: IF Y=07GOSUB 

514 
39: IF Y=08GOSUB 

516 
40: IF Y=09GOSUB 

518 
41:IF Y=10GOSUB 

520 



42: IF Y-11GOSUB 

522 
43: IF Y=12GOSUB 

524 
44:IF Y=13GOSUB 

526 
45:IF Y=14GOSUB 

528 
46: IF Y=15GOSUB 

530 
47:IF Y=16GOSUB 

532 
48:IF Y=17GOSUB 

534 
49:IF Y=18GOSUB 

536 
50:IF Y=19GOSUB 

538 
60:LET S=(n*D*2 

)/4 
70:LET V=Q/(S*1 

000) 
80:LET X=.6+1.5 

*D 
90: IF V>XTHEN 1 

00 
91: IF V<.3THEN 

102 
92: IF V<XTHEN 1 

10 
100: PRINT "ADOTA 

R D>QUE ";Y 
101: GOTO 30 
102: PRINT "D POD 

E SER< ";Y 



10 3: INPUT "COD S 

EQ= " ; Z 
104: IF Z=0THEN 1 

10 
105: IF Z=lGOTO 3 


110:H=(L/100) *.0 

03*(Q/C)*1.8 

52*D"-4.8655 
115:PRINT "N.TRE 

CHO=", USING 

"***. ";G 
120:PRINT "COD M 

ATERIAL", 

USING "##*"; 

Y 
125:PRINT "VELOC 

(M/S)=", 

USING "##.## 

";V 
130:PRINT "P CAR 

GA(MCA)=", 

USING "####. 

*#";H 
140:LET N=P+M 
145:PRINT "C P M 

ON=", USING " 

»#*»#. »#";N 

150:LET B=N-H 
155:PRINT "C P J 
UZ=", USING " 

0*000. 00" ;B 

160:LET E=B-J 
165:PRINT "PRE. J 
UZ=", USING " 

####.##";E 



170: GOTO 20 
500:D=.0278,C=12 


501:RETURN 
502:D=.0352,C=12 


503:RETURN 
504:D=.044,C=120 
505:RETURN 
506:LET D=.0534, 

C=130 
507:RETURN 
508:D=.0756,C=13 


509 .-RETURN 
510:D=.0977,C=13 


511: RETURN 
512:D=.1412,C=13 


513: RETURN 
514:D=.1084,C«13 


515: RETURN 
516:D=.1564,C=13 


517:RETURN 
518:D=.2042,C=13 


519: RETURN 
520:D-.252,C=130 
521: RETURN 
522:D=.05,C=100 
523: RETURN 
524:D=.075,C=100 
525:RETURN 



526 

527 

528 

529: 

5 30 

531: 

532: 

533: 

534: 

535: 

536: 

537: 

538: 

539: 

540: 



D-.1,C=110 

RETURN 

D=15,C=110 

RETURN 

D=.2,C=110 

RETURN 

D=.25,C=110 

RETURN 

D=.3,C=110 

RETURN 

D-.35,C=110 

RETURN 

D=.4,C=110 

RETURN 

REM *C0DIGOS 



541: REM *PVC-JS; 
EB-892(00,32 
;01,40;02,50 
) *PVC-JE;EB- 
183(03, 50;04 
,75;05,100;0 
6,150) 

542: REM *PVC-DFF 
(07,100;08,1 
50; 09, 200; 10 
,250) 

543: REM FF-DUCTI 
L(ll,50;12,7 
5i 1 13, 100; 14, 
150;15,200;1 
6,250;17,300 
;18,350;19,4 
00) 

544: REM MICRO-SI 
STEMAS/83 
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Curso de Microcomputador 
Gratis do CP-200, CP 300 e 
CP 500 



GRATIS! 



FACA JA SUA INSCRigAO - VAGAS LIMITADAS 




Informacoes e Inscricoes pelos telefones: 
222-3458, 220-5794. 220-91 13 e 223-7388 

Nocdes da linguagem BASIC 
Material didatico GRATUITO 
Aulas pr^ticas e teoricas 
Dicas sobre programacao e operacao 



SOFTWARE 



CP-300/CP-500 
JOG OS 

BATALHA AE- 

REA(F) 4.000 

FORCA (F) 4.500* 

TIRO AO ALVO 

(F) 4.000 : 

TABUADA (F) . . 4.000* 
COMANDO UFO 

(F) 5.000* 

PATRULHA(F) . . 5.000* 
INVASORES(F) . 5.500* 
PADDLE PINBALL 

(F) 9.600* 

DISCOS VOADO- 

RES(F) . 8.000* 

DANCING DE- 
MON (F) 8.000* 

XADREZ(F) .... 10.000* 

CUBO (F) 6.400* 

JORNADA NAS 
ESTRELAS(F) . . 9.500* 
ELIZA (F) ..... 7.000* 
COSMIC (F) .... 9.600* 
SCARFMAN (F) . 9.600* 

LUNAR (F) 9.600* 

BARRICADA(F) . 9.600 : 

GALAXI (F) 9.600* 

METEOR (F) . . . . 9.600* 
PENETREITOR(F) 9.600* 
10 JOGOS EM BA- 
SIC (em disco, boa, 
sky, pouso lunar, 
Jornada, teaser, cu- 
pim, hopper, cram, 
fireman, space fire. 24.000 
COMPLETA LINHA DE 
PROGRAMAS PARA 
ENGENHARIA. 



APLICATIVO 

- CADASTRO DE 
CLIENTES(D) 15 0RTN 
(F) 20ORTN 

- MALA DIRETA 

(D) 30.000 

- FINANQAS (D) . 30.000 

- PROCALC (D) . . 40.000 

- VIDEO (F) 10.000* 

- BANNER (F) . . . 6.400* 

- SCRIP (D) '. 40.000 

(F) 32.000 

- CONTROLE DE 



i 

- DIRETORIO(D) 16.000 

- BANCO DE DA- 
DOS (D) 40.000 

CARTA ASTRAL 

(F) 15.000 

-ODONTO(F) .30ORTN 
(D) 50ORTN 

- CONVERT (F) . . 6.400 

- LISTA(D) 16.000 

- SUPERTECLA 

(F) 8.000 

- EDITOR (D) ... 32.000 

- SOUND (F) 6.400* 



CP-200 
JOGOS 

- BATALHA AF.- 
REA 

- BATALHA NA- 
VAL 

- FORCA 

TIRO AO ALVO 

- BIORRITMO I . . 

- LOTO 

- TABUADA .... 

- SIMULADOR DE 
. VOO 



- OESTE SELVA- 
GEM 

- SENHA 

- BATALHA C0S- 
MICA 

- METEOR 

- INVASION FOR- 
CE 

- 3D DEFENDER . 

- KRAZY KONG . 

- RED ALERT . . . 

- PUCMAN 

- INTELECTO . . . 



NOVIDADES 



APLICATIVOS 

CONTAS A PA- 
GAR 

AGENDA 

CADASTRO DE 

CLIENTE • 

VIDEO TlTULO . 
VU-CALC ...... 



13.000 
9.500 

13.500 
1 5.000 
10.000 



— PROMOTE* 

CP-200 

6.500 PACOTE ECO- 
4 000 NOMICO(F) . . . 4.000 
CP-300/CP-500 

4 500 " 10 J0G0S EM 

4*500 F,TA < F > • • • • • 24.000 

• 
5.500 LEGENDA 
5.200 F - Para programa em fita sL 

D • Para programa em disco 
9.600 * Acrescentar Cr$ 6.000,00 
7.200 p/versao em disco 

9.600 I ' ! 1 

7.200 PRECO ESPECIAL 

9.600 -, poR ATACADO 



PARA MAIORES INFORMACOES SOBRE: 



Nome: Tel. 

End.: CEP: 

Cid.: Est: Equip.: 



CURSOS 

SOFTWARE 

EQUIPAMENTOS 



filcres 



Filcres Importacao e Representacoes Ltda. 

Rua Aurora, 165 - CEP 01209 - Sao Paulo - SP 

Telex 1131298 F I LG BR - PBX 223 7388 - Ramais2.4, 

12, 18, 19 - Diretos: 223-1446, 222-3458, 220-5794 e 

220-9113- Reembolso- Ramal 17 Direto: 222-0016 - 220-7718 
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Veja como funciona a Idgica de programacao , aprenda a construir um algoritmo, 
e comece a desenvolver seus prdprios programas. 






Uma questao de logica 



Mauricio Costa Re is 



PI ronto. comprei um micro! E agora, o que fa 90 com 
ele?" Esta e uma velha quest§o, que envolve duas al- 
ternativas: ou compramos programas ja prontos ou 

entao os desenvolvemos por conta propria. 

No pnmeiro caso a tarefa e relativamente simples, ou seja, 
e" so escolher entre os programas (ou jogos!) existentes no mer- 
cado aquele que melhor se adapta aos nossos objetivos. Por 
exemplo, se a mtencao e controlar a despensa de sua casa, cas- 
ta voce procurar um programa de controle de estoque. 

E se optamos pela segunda alternativa? Bom, ai'a reahdade 
ja e outra, um pouco mais complicada. 

Sem diivida, os micros sa"o faceis de serem utilizados, pnnci- 
palmente porque a maiona deles trabalha com a linguagem BA- 
SIC. No entanto, e" justamente esta simplicidade que vem con- 
fundindo muita gente. Se queremos programar precisamos, an- 
tes, aprender o BASIC! 

Escrever um programa nao e a mesma coisa que escrever, 
digamos, uma carta. Ele deve ser exato e obedecer a uma se- 
quencia coerente de comandos - e n6s temos que ser sensi'veis 
a isto. Para falar bem em ingles e necessano tambe'm pensar em 
ingles. mesmo ocorre com o micro: para programa -lo deve- 
mos raciocinar de acordo com a sua logica. a logica de progra- 
macao. 

DESENVOLVENDO UMA IDElA 

Nossa intencao e escrever um programa, correto? Que tal 
preparar antes todos os passos a serem seguidos? Voce vera que 
isto sempre ira auxilia-lo muito quando for desenvolver um 
novo programa. 

Utihzaremos pnmeiro um exemplo pratico do nosso coti- 
diano e depois entao um exemplo de programa. Vamos nos 
imaginar como sendo um micro (vamos, pelo menos, tentar). 



Isto significa que so podemos obedecer ordens exatas e bem 
defimdas agora. 

Pois bem, estamos dirigindo calmamente quando, de re- 
pente... estoura um pneu. que devemos fazer? 
- TROCAR O PNEU 

Parece 6bvio, mas faltam alguns detalhes. Podemos tentar: 

1 . FREIAR CARRO COM FREIO DE MAO 

2. LEVANTARO CARRO COMO MACACO 

3. TIRAR PNEU FURADO 

4. COLOCAR ESTEPE (PNEU RESERVA) 

Mas como levantar o carro se ainda nSo peguei o macaco 
na mala do carro? EntSo, temos que: 

2.1 - ABRIR A MALA DO CARRO 

2.2 - PEGAR O MACACO 

2.3 INSTALAR MACACO 

2.4 - ACIONAR O MACACO 

Como o carro e 1 novo e voce" nao sabe onde colocar o ma- 
caco, voce deve: 

2.3.1 - ABRIR O PORTA-LUVAS 

2.3.2 PEGAR MANUAL DO CARRO 

2.3.3 - VERIFICAR A POSK2AO DE INSTALA^AO DO 

MACACO 

2.3.4 - COLOCAR MACACO 

Mas n§o 6 ta"o simples assim tirar um pneu. Voce" precisa: 
3.1 - TIRAR UMA PO RCA 
3.2 -TIRAR UMA PORCA 
3.3 - TIRAR UMA PORCA 
3.4 -TIRAR UMA PORCA 

3.5 - TIRAR O PNEU 

Epa, quanta repetic5o! Vamos tentar simplificar: 

3.1 - TIRAR UMA PORCA 

3.2 - SE JA TIROU 4 PORCAS SIGA SENAO VOLTE 

PARA 3.1 
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3.3 - TIRAR PNEU 

Ficou melhor assim, pois a ordem para tirar a porca so apa- 
rece uma vez e esta controlada por uma condicSo. Esta ordem 
tambem podena ser escrita de outra maneira: 

3.1 - FA£A 4 VEZES: TIRAR UMA PORCA 

3.2 - TIRAR PNEU 

Da mesma forma podemos desenvolver o item 4: 
4.1 - ABRIR A MALA DO CARRO 
4.2-PEGAROESTEPE 

4.3 - COLOCAROESTEPENOLUGARDOPNEUFURADO 

4.4 - FA£A 4 VEZES: COLOCAR UMA PORCA 

Um pequeno detalhe: voce observou que a mala do carro ja 
estava aberta? Isto sigmfica dizer que o item 4.1 nao e" neces- 
sano e que podemos omiti-lo. 

Agora falta guardar os objetos utilizados; e entSo acrescen- 
tamos: 
5. GUARDAR OS OBJETOS 

5.1 - GUARDAR O MACACO 

5.2 - GUARDAR PNEU FURADO 

mas o macaco ainda esta mantendo o carro no ar. Precisamos: 

5.1.1 - ABADCAR CARRO 

5.1.2- TIRAR O MACACO 

5.1 .3 - GUARDAR MACACO NA MALA 

Vamos ver como ficou a nossa troca de pneu: 
- TROCAR PNEU 

1 . FREIAR CARRO COM FREIO DE MAO 

2. LEVANTAR O CARRO COM MACACO 

2.1 - ABRIR A MALA DO CARRO 

2.2 - PEGAR MACACO 

2.3 - INSTALARO MACACO 

2.3.1 - ABRIR PORTA-LUVAS 

2.3.2 - PEGAR MANUAL DO CARRO 

2.3.3 - VERIFICAR A POSICAO DE INSTALACAO DO 

MACACO 

2.3.4 - COLOCAR MACACO 

2.4 - AC10NAR MACACO 

3. TIRAR PNEU FURADO 

3.1 - FACA 4 VEZES: TIRAR UMA PORCA 

3.2 - TIRAR PNEU 

4. TIRAR ESTEPE 

4.1 - PEGAR ESTEPE 

4.2 - COLOCAR ESTEPE NO LUCAR DO PNEU 

FURADO 

4.3 - FACA 4 VEZES: COLOCAR UMA PORCA 

5. GUARDAR OS OBJETOS 

5.1 - GUARDAR MACACO 
5.1.1 -ABAIXARO CARRO 
5.1.2- TIRAR MACACO 

5.1 .3 - GUARDAR MACACO NA MALA 

5.2 - GUARDAR () I'M. I FURADO 

Pronto, o pneu esta trocado. Repare que. efetivamente. 
so devemos executor os itens destacados. 

Agora vamos tentar resolver um problema de programacffo. 
Como exemplo, podemos usar o calculo do MDC (Maximo 
Divisor Comum) entre dois numeros. Para tal, aphcaremos o 
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"Mdtodo de Euclides" (figura 1). Vejamos entSo como calcu- 
lar o MDC entre 42 e 27, que pode ser representado por 
(42,27): 

1 . Dividendo *■ 42 

2. Divisor - 27 

3. Calcular o quociente 

4. Calcular o resto 

5. Se o quociente ja e" o MDC 
enta"o (6.) Terminar 

senao (7.) Atualizar a tabela 

Para calcular o quociente e o resto: 
3.1 - Quociente «- parte inteira do resultado da divisao do 
dividendo pelo divisor 
4.1 - Resto ■> dividendo - (quociente x divisor) 

quociente so sera o MDC casoo resto seja igual a O(zero), 
e entSo podemos substituir no algontmo: 
5. Se o resto igual a 

E para terminar: 

6.1 - MDC • quociente 

6.2 - Impnmir o valor do MDC 

6.3 - Fim do me'todo 

So falta detalhar a parte mais importante, pois. apos atuali- 
zar a tabela, devemos voltar ao processo: 

7.1 - Dividendo - divisor 

7.2 - Divisor - resto 

7.3 - Voltar para 3 

Simplesmente, o que fizemos foi escrever como agir para 
calcular o MDC entre dois numeros utilizando as barras. Se 
quisermos tornar o metodo mais geral, basta substituir os dois 
pnmeiros passos por: 

1 . Ler um valor para o dividendo 

2. Ler um valor para o divisor 

ALGORITMOS E TOP-DOWN 

Chamamos de procedimento qualquer sequencia de acoes 
que vise atingir determinado objetivo. Quando estas acdes 
apresentam um fim, ou seja, representam acoes finitas, damos 
a este procedimento o nome particular de algoritmo. 

Na verdade, um programa e uma sequencia de comandos 
(acOes) e, por isso, uma representacSo de um algontmo. Da 
mesma forma, o que fizemos para descrever a troca de um 
pneu tambe"m 6 um algontmo. Portanto, ao escrever um pro- 
grama. e importante que o seu algontmo esteja correto. Em 
outras palavras, um programa so estara correto se o seu algo- 
ntmo estiver coneto. 

Na descncSo da troca do pneu utilizamos a tecnica conhe- 
cida pelo nome de Top-Down (de cima para baixo), que sig- 
mfica desenvolver uma ide"ia partmdo de seu conceito mais am- 
plo ("alto") ate* conceitos mais especi'ficos ("baixo"). 

Repare como procedemos para fazer a troca do pneu. Des- 
crevemos alguns passos basicos, e os que na"o estavam bem de- 
senvolvidos foram sen do desmembrados ate chegarmos ao al- 
gontmo final. Ja no calculo do MDC foi mats simples e, na 
verdade, usamos o me'todo conhecido pelo nome de "Algont- 
mo de Euclides". 

Com tudo isso podemos concluir: o sucesso ou nao de um 
programa ira depender do algoritmo que ira representar: se o 
algontmo estiver coneto, enta"o o programa estara coneto. 
Outro ponto importante e que os algontmos gerados por esta 
tecnica s2o estruturados, onginando programas tamb^m estru- 
turados. Portanto, a te'cnica de Top-Down 6 uma boa fena- 
menta para a aphcacao da Programa^So Estruturada (veja 
MICRO SISTEMAS n9 20, pag. 10). ■ 
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da loja Microcenter Informa'tica Ltda., no Rio de Janeiro. 



Figura 1 -MDC(42,27)=3 
MICRO SISTEMAS.-setembro/83 



65 



Estrategia: a palavra-chave para aprisionar as pecas inimigas 
e veneer o jogo no seu micro da linha Sinclair. 



Flip: capture o adversario 



Hondrio Lisboa Neto 



F~| lip (palavra inglesa que signifi- 
ca algo como virar ao reverso), 
tambdm conhecido como 

Othello ou Einstein - nomes um tanto 
sisudos para ele -, e um jogo para ser 
disputado por duas pessoas. Foi desen- 
volvido em um TK-85 com 16 Kb de 
memdna. 

Flip e , basicamente, um jogo de es- 
trategia. onde a sorte nao e" o prepon- 
derate . Os jogadores tern como obje- 
tivo chegar ao final da partida com um 
numero de pecas superior ao de seu 
adversino, e isso & conseguido atravds 
de posicionamentos adequados que 
cnam armadilhas e defesas. As regras 
baacas sao simples, mas perrmtem si- 
tuacoes interessanti'ssimas, onde um 
raciocfnio bem elaborado serd fator de 
supremacia no desenvolver da partida. 

AS REGRAS DO JOGO 

jogo tern lni'cio com a tela apre- 
sentada na figura 1 . Entao, o jogador 
que comeca o jogo devera" colocar uma 
peca sua de forma a aprisionar uma ou 
mais pecas adversanas, as quais passa- 
rao a ser suas. 

Esta captura de pecas e feita colo- 
cando-se uma peca de tal forma que as 
pecas adversanas fiquem hmitadas por 
duas pecas suas. A captura pode ser 
feita em qualquer direcSo - horizon- 
tal, vertical e, inclusive, nas diagonals. 
£ possivel com uma peca apenas, fazer 
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ABCDEFGH 

Figura I 

captures em mais de uma direca"o. Nao 
podem existir espacos vazios ou pecas 
suas entre as pecas a serem capturadas. 
Toda jogada deveri capturar pelo 
menos uma peca lmmiga. Uma peca 
colocada numa posicao que nao apri- 
sione pe9a adversdna sera considerada 
uma jogada invalida. Quando isso 
ocorre, o jogador nao perde a vez; ele 
terd o direito de jogar novamente, des- 
ta vez numa posicao vdlida. 

Vejamos, entao, alguns exemplos de 
jogadas vabdas e invalidas. Considere o 
tabuleiro mostrado a seguir como um 
determmado momento de uma partida. 

(Veja figura 2). 

Supondo que seja a vez da pecaQ 
jogar, senam: 



ABCDEFGH 

Figura 2 

- jogadas validas: 

• Dl - captura a peca em D2 

• G2 - captura as pecas em D5, E4, 
F3eG3 

• H3 - captura as pecas em F3 e G3 

• E7 -captura as pecas em E4,E5e 
E6 

- jogadas invalidas: 

• E8 - existe uma casa vazia em E7 

• F7 - nao existe uma peca sua em 
C4 para fechar a diagonal 

• B5 - existe uma casa vazia em F5 
Apos RUN e NEW LINE, apareceri 

na tela o tabuleiro vazio e a pergunta 
NOME DOS JOGADORES?. A ordem 
de entrada dos nomes decidira quern 
comeca o jogo. Mas o come?o nao e* 
decisivo; ambos tern iguais chances de 
ganhar. 
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Em seguida, o programa coloca as 
pe9as na posicfo micial (conforme foi 
visto na figura 1) e indica de quern i a 
vez. 

As jogadas deverao ser dadas mdi- 
cando-se a posiclo que a pe?a ira" ocu- 
par no tabuleiro. Esta posicSo i dada 
pelas letras e numeros que esta"o em 
volta do tabuleiro, formando as coor- 
denadas da casa a ser ocupada (do mes- 
mo modo como € indicado na Batalha 
Naval)- Voce deve digitar pnmeiro a 
letra, depois o numero e em seguida 
NEW LINE. Por exemplo: C 4 NEW 
LINE. Feita a jogada, o computador se 
encarrega de fazer as capturas. Termi- 
nada uma jogada, o numero de pecas 
de cada jogador 6 atuahzado e aparece 
o nome do prbximo a jogar. 

Caso urn jogador esteja impossibik- 
tado de jogar (ou seja, quando nSo 
existe lugar onde ele possa capturar pe- 
lo menos uma pe9a adversaria), ele de- 
vera" digitar e NEW LINE, passando a 
vez para o outro jogador. 

No final da partida aparecera" o no- 
me do vencedor e os totals de pecas de 
cada um. 

A linha de programa 510, que con- 
tain a instrucSo SLOW, permite a vi- 



2 REM ** FLIP ** 

4 REM ** HONORIO LISBOA NETO- 

JUN/83 ** 
6 FAST 
10 LET C|=TT 
20 FOR N=2 TO 14 STEP 4 
30 FOR M=2 TO 14 STEP 4 
40 PRINT AT N,M;C$;AT N+1,M;C$ 
;AT N+2,M+2,C$;AT N+3,M+2;C 

$ 
50 NEXT M 
60 NEXT N 
70 FOR N=l TO 18 
80 PRINT AT 1 , N ; "■" ; AT 18,N;"B 

90 NEXT N 
100 FOR M=2 TO 18 
110 PRINT AT M,1;"W;AT M,18;"H 

120 NEXT M 

130 FOR M=2 TO 16 STEP 2 

140 PRINT AT 0,M;CHR* (38+(M-2) 

/2);AT 19,M;CHR$ (38+(M-2)/ 

2) 
150 PRINT AT M,0;CHR$ (29+(M-2) 

/2);AT M,19;CHR$ (29+(M-2)/ 

2) 
160 NEXT M 
180 DIM V{2) 
190 DIM T(2) 
200 DIM S$(4,2) 
210 DIM J$(2,10) 
220 DIM M(8,8) 
230 PRINT AT 21,0; "NOME DOS JOG 

ADORES?" 
240 FOR 1=1 TO 2 
250 INPUT J* (I) 
260 IF J$(I,10)<>" " THEN GOTO 

970 
270 NEXT I 
280 LET S$(l)="[ir 
290 LET S$(2)°"P f f 
300 LET S$(3)**W 
310 LET S$(4)="M" 
320 LET P=0 
330 LET V(l)-1 
340 LET V(2)-2 



suahza^ao das capturas £ medida em 
que sao feitas. Se depois de algumas 
partidas voce ja" tiver assimilado o me* 
camsmo das capturas e achar que o 
computador esti muito lento, esta li- 
nha pode ser suprimida; o computador 
passard entao a operar em FAST (linha 

6). 

Para fmalizar, algumas dicas para se 
obter melhor posicionamento durante 
as partidas: 

— evite colocar pecas nas linhas 2 e 7, 
e nas colunas Be G; 

— procure colocar suas pe9as nas mar- 
gens e pnncipalmente nos cantos do 
tabuleiro, pois um canto nunca tera - 
sua peca capturada. 

DIGITACAO DO PROGRAMA 

Antes de digitar o programa Flip, 
observe que na linha : 
10 - os simbolos utihzados sao 
dois GRAPHICS SHIFT H se- 

guidos; 

80 - os simbolos sao GRAPHICS 
SHIFT SPACE; 

1 10 - os simbolos sao GRAPHICS 
SHIFT SPACE; 

260 - existe um espaco em branco 
dentro das aspas; 



Flip 



350 LET 1=2 
360 LET X=4 
370 LET Y=4 
380 GOSUB 1020 
390 LET X-5 
400 LET Y-5 
410 GOSUB 1020 
420 LET 1=1 
430 LET Y=4 
440 GOSUB 1020 
450 LET X=4 
460 LET Y=5 
470 GOSUB 1020 

480 PRINT AT 9,22;J$(1) ;AT 10,2 

2;S$(1);AT 13 , 22 ; J$ ( 2) ; AT 1 

4,22;S$(3> 
490 PRINT AT 15 , 22;S$ (4) ; " ";T( 

2) ;" ";AT 11,22;S$(2) ;" ";T 

(1);" " 
500 IF T(l)+T(2)=64 OR NOT T(l) 

OR NOT T(2) THEN GOTO 940 
510 SLOW 
520 PRINT AT 21 ,0 ; "AGORA E VOCE 

";J$(I) 
530 INPUT L$ 

540 IF L$="0" THEN GOTO 910 
550 IF LEN L$<>2 THEN GOTO 530 
560 LET C=CODE L$(l)-37 
570 LET L=CODE L$(2)-28 
580 IF L>8 OR L<1 OR C>8 OR C<1 

THEN GOTO 870 
590 IF M(L,C)>0 THEN GOTO 870 
600 LET X=L 
610 LET Y=C 
620 GOSUB 1020 
6 30 FOR D=l TO 8 
640 LET DX=(D=4)+(D=6)+(D=5)-(D 

=8)-(D=l)-(D=2) 
650 LET DY=(D=2)+(D=3)+(D"4)-(D 

=6)-(D=7)-(D=8) 
660 LET X=L 
670 LET Y=C 
680 LET X=X+DX 
690 LET Y=Y+DY 
700 IF X=0 OR X=9 OR Y=0 OR Y=9 

THEN GOTO 790 



280 - os simbolos usados sao GRA- 
PHICS SHIFT 3 e GRAPHICS 
SHIFT 4 seguidos; 

290 - os simbolos usados sao GRA- 
PHICS SHIFT 2 e GRAPHICS 
SHIFT 1 seguidos; 

300 - os simbolos usados sao GRA- 
PHICS SHIFT E e GRAPHICS 
SHIFT R seguidos; 

310 - os simbolos usados sao GRA- 
PHICS SHIFT W e GRAPHICS 
SHIFT Q seguidos; 

490 - existe um espaco em branco 
dentro das aspas que apare- 
cem quatro vezes nesta linha; 

840 - existem dois espacos em bran- 
co dentro das aspas; 

850 - os simbolos usados sao dois 
GRAPHICS SHIFT H segui 

dot; 

990 - existem 28 espagos em bran- 
co dentro das aspas dessa linha. 



Hondrio Lisboa Neto, Engenheiro Civil, for- 
mado pel a USP em 1977, atualmente cursa 
mestrado na mesma universidade. Trabalha 
ha" cinco anos na a'rea de obras hidriulica em 
empresa de consultoria e projetos, onde de- 
senvolve estudos de engenharia e programas 
oara microcomputadores. 



IF M(X,Y)=0 THEN GOTO 790 

IF M(X,Y)<>V(I) THEN GOTO 6 

80 

LET X=X-DX 

LET Y=Y-DY 

IF X=L AND Y=C THEN GOTO 79 



LET P=l 

GOSUB 1020 

GOTO 7 30 

NEXT D 

IF P THEN GOTO 910 

LET M(L,C)=0 

LET T(I)=T(I)-1 

LET R=C+L-INT ((C+L)/2)*2 

LET C$=" " 

IF NOT R THEN LET C$ = "[Z)" 

PRINT AT 2*L,2*C;C$;AT 2*L+ 

1,2*C;C$ 

PRINT AT 21,0; "JOGADA INVAL 

IDA ";J$(I> 

PAUSE 180 

GOTO 520 

LET P=0 

LET I=(I-2)+2*(I=l) 

GOTO 490 



710 
720 

730 

740 
750 

760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 

870 

880 
900 
910 
920 
930 

940 LET I=(T(1)>T(2))+2*(T(1XT 

(2)) 
950 PRINT AT 21 ,0 ; "PARABENS ";J 

$(I) ;",VOCE GANHOU" 
960 STOP 
970 PRINT AT 21,0; "NOME COM 9 L 

ETRAS NO MAXIMO." 
980 PAUSE 300 
990 PRINT AT 21,0; " 

1010 GOTO 250 

1020 LET M(X;Y)=V(I) 

1030 LET T(I)«T(I)+1 

1040 LET IN=(I=2)+2*(I=1) 

1050 LET T(IN)*T(IN)-P 

1060 IF 1=2 THEN LET 1=3 

1070 PRINT AT 2*X,2*Y ;S$ (I ) ;AT 2 

*X+1,2*Y;S$(I+1) 
1080 IF 1=3 THEN LET 1=2 
1090 RETURN 
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JR Sysdata 



OJR, micro fabricado pela Sys- 
data Eletronica Ltda., de Sao 
Paulo, 6 um computador bem 

mais potente e vers^til do que seu mo- 
desto design possa sugerir a um obser- 
vador menosatento. 

Tendo seu software baseado no TRS- 
80 Model III, o JR vemcomumase'ne de 
incrementos originais em termos de mer- 
cado nacional, entre os quais destaca-se 
o uso de cartuchos de programas que 
podem substituir a ROM do sistema por 
outros compiladores/interpretadores, 
sem a necessidade de se ter uma unida- 
de de disquete. 

Extemamente, seu aspecto 6 de um 
micro pessoal de porte discreto, com te- 
clas pequenas e achatadas e com um pre- 
50 intermediano no disputado merca- 
do dos pessoais. 

HARDWARE 



JR tern como UCP o Z80 traba- 
lhando com um clock de 1,78 MHz, 
que pode ser elevado para 3,56 MHz 
atravds de acess6rio adquirido opcio- 
nalmente. 

Sua mem6ria compreende 14 Kb de 
ROM e 16 Kb de RAM, esta expansivel 
ate* 48 Kb na versao bdsica e 62 Kb na 
versa"o disco. Esta expansfo na"o exige 




o uso de placas externas ou internas, 
sendo feita atravds da simples substitui- 
ca"o do chip de 16 Kb RAM por outro. 
Como novidade, o JR tern na sua 
UCP um soquete para 2 Kb de memoria 
ROM ou EPROM. Nele podem ser uti- 
lizados um chip JR Extended BASIC 
ou um chip para auto-start de programas 
aplicativos em cartuchos, ambos comer- 
cializados pela Sysdata, bem como uma 
mem6ria EPROM gravada pelo usuano. 
Seu teclado tern feedback tdctil, com 
contatos de prata/iri'dio e teclas simila- 
res as de uma calculadora, por^m maio- 
res e com um posicionamento comum 
aos demais micros. 

JR tern duas saidas para video: 
uma RF para ser usada com TVs comer- 
ciais, e outra composta, que tanto pode 
ser ligada a uma TV comum quanto a 
um monitor de video profissional. Seu 
display £ de 16 linhas por 64 colunas, 
ou 16x32 com caracteres expandidos, 
compreendendo uma resoluca"o grafica 
de 128x48 pontos. video pode ser 
usado ainda em modo reverso (letras 
pretas em fundo branco) com comando 
em software. 

Gerador de caracteres do JR 6 to- 
do baseado numa EPROM de 4 Kb e 
tern 96 caracteres disponi'veis, ainda 
nio implementados, que podem perrru- 
tir, por exemplo, a insercao de todos os 
caracteres APL ou outros caracteres a 
escolha do usuano. 

Em sua configuracao basica, o JR 
vem com uma interface para gravador 
cassete, podendo o usuano utilizar mais 
uma interface (esta optional) junto com 
a pnmeira. O tircuito de leitura de fitas 
em cassete do JR 6 de alta confiabik- 
dade, gravando em velocidade de 500 
BPS e ele vem com um comutador ma- 
nual para controle remoto do gravador. 
O micro traz uma particularidade 
muito interessante, que sa"o os cartuchos 
de programas. Em sua configuracSo ba- 
sica, o JR tern uma sai'da para o uso de 
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cartuchos de programas, acoplada a um 
mecanismo que possibilita o deshgamen- 
to da memona ROM do JR quando este 
estiver com um cartucho. Desta forma o 
micro fica controlado pelo conteudo do 
cartucho, que pode conter um compila- 
dor de outra linguagem, que normal - 
mente teria que ser carregado a partir 
de um disquete, com um custo mais ele- 
vado. 

Os cartuchos podem ter tambe'm pro- 
gramas aplicativos maiores, rodando 
com a ROM do JR. Nestes casos, eles 
apresentam vantagens como a rapidez 
no canegamento do programa, a nao 
ocupacSo de espaco de mem6ria pelo 
mesmo e a seguranca de na"o perder o 
programa por conta do desligamento da 
ma'quina. 

Aldm da sai'da para cartucho, o JR 
conta com um conector de 50 pinos ba- 
nhados em ouro para expansao externa. 

SOFTWARE 

A linguagem utilizada pelo JR d o 
BASIC Nivel II, cujo Interpretador esta 
residente em 12 Kb de mem6riaROM. 
Todo o software compativel com os mi- 
cros TRS-80 I e III roda no JR, que tera 
ainda, segundo a Sysdata, compdadores 
de LISP, Pascal, FORTH e APL, alem 
de um Monitor de Assembler Z80, todos 
em cartuchos e em disquetes. 

usuino de um JR pode ampliar seu 
BASIC colocando um chip JR Extended 
BASIC, que a Sysdata oferece opcional- 
mente. Este chip acrescenta os seguintes 
recursosao JR: 

— Oscomandos INPUT®, LINE INPUT, 
LINE INPUT @, &H, &0, DEFFN, 
DEFUSR, INSTR, MERGE, MERGE* 
LSET(X,Y,X\Y',Z) e B ON/OFF, para 
ligar ou desligar o JR Extended Basic 
atrave"s de software ; 

Os comandos GOTO, GOSUB e RES- 
TORE podem ter como argumento va- 
riaveis ou expressOes. Ex.: GOSUB A*3; 

— Implementa a auto-repet^So de te- 
clas; 

— Aciona o bip a cada tecla pressionada ; 

— Torna o cursor programdvel ; 

— Implementa letras minusculas. 

JR esti a venda nas principals lo- 
jas espetializadas, ao preco mddio de 
CrS 390 mil em sua configuracSb b&si- 
ca, e o endereco de seu fabricante, a 
Sysdata Eletronica Ltda., 6 na Rua Jor- 
ge Duprat Figueiredo 647, Vila Santa 
Catarina, S5o Paulo, SP, CEP 04361 . 

1 
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AJgumas falhas importantes na revisao do programa 
RENUM, da materia Renumere sens programas em BASIC, 
MS n9 20, maio/83, pigs. 70 a 81, tomaram o programa 
impraucavel. As correcoes sa"o as seguintes: 

• passo 1 10: 40E6H, ao invds de 40EGH; 

• passo 520: FD4B, ao mv^s de FD48; 

• passo 750: 3AFA40, ao invds de 3AF440; 

• passo 810: FD8B, ao inve"s de FD88; 

• passo 3850: foi omitido. £ o seguinte : 
FF91 18E8 3850 JR JACHG 

• passo 3839: foi numerado incorretamente. Na verdade, 
e o passo 3890. 

• passos 3750 a 3920: estao com os enderecos errados. Os 
corretos sa"o : 



3750 


FF87 


3810 


FF8D 


3870 


FF94 


3760 


FF88 


3820 


FF8E 


3880 


FF95 


3770 


FF89 


3830 


FF8F 


3890 


FF97 


3780 


FF8A 


3840 


FF90 


3900 


FF98 


3790 


FF8B 


3850 


FF91 


3910 


FF9B 


3800 


FF8C 


3860 


FF93 


3920 


FF9C 



No niimero 22, a pdg. 47, o programa Controle de Esto- 
que veio com um pequeno erro na linha 80. Logo apos o 
niimero 4,799, o cariter $ saiu no lugar de dois pontos (:), 
que seriao correto. 

E no niimero 23, no programa de adventure Aventuras 
na Selva, a pag. 50, a listagem saiu publicada sem a linha 
420, que 6 a seguinte: 

420 IF NOT CODE B$(2) THEN GOTO 56 



PARA O SEU PROBLEM A, 
NOS TEMOSA SOLU^AO! 




OUTRAS MARCAS.^ 

• TK 85 e TK 83 

• JR. DA SYSDATA 

•APPLY 300 

• Aplicativos • Utilitarios 

• Perifericos* Acess6rios 

• Literatura Tecnica 
• Jogos. 



SCHUMEC 

Profissional-Cientifico 
M 101/85 

• CPU 8085 (8 Bits) c/ 64Kb 
deRAM 

M 102/88 

• CPL 8088 (16 Bits) c/ 256 Kb 
deRAM 

Ate 4 Diskettes de 8" 
I re 4 Discos Rigidos 

de6oul2Mb 
Sistema Multiusudrio 

Ct'RSOS: 

Basic Basico. Basic 
Avancado. CPM/DOS 
e Assembler. 




DIGITUS 

Pessoal e 

Semi-Profissional 

• Compativel c/ o TRS-80 

• Sistema Modular 
•CPM 

•Alia Resolucao de Video 



DESPACHAMOS PARA TODO O BRASIL 
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KALHAU ENGENHARIA LTDA. 
Praca Tiradentes. 10 s- 402 
Tel.: (021) 252-2752 -R.J. 
Cep. 20.060 







A maneira prat ica de planejar, acompanh ar e reviser a operas ao de 
sua empresa e atraves do uso do BUSINESS-CALC. 

O BUSINESS-CALC e um produto que permite ao empresario en- 
contrar solucoes rapidas para seu problems de processamento 
de dados; com flexibilidade e simplicidade; com balxo custo; total 
dominio do usuario sobre o processo de calculo. prescindindose 
de qualquer conhecimen to especif ico de comput ador e processa- 
mento de dados. 

O que e o BUSINESS-CALC? E um produto composto de um soft- 
ware e uma documentacao. 

SOFTWARE: Matriz eletronica de 254 linhas e 78 colunas progra- 
maveis diretamente pelo usuario. MATRIZ BUSINESS-CALC. 

REQUISITOS DO COMPUTADOR 
Sistema Operacional: SOM ou CPM 
Memoria minima: 32K 
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AV. RIO BRANCO, 45/811 • RIO DE JANEIRO ■ 20090 
TEL: 2831814 



computel - computel - computel - computel - computel - computel • computel 



MICRO SISTEMAS, setembro/83 



69 



I 



Baseado na leitura dtica de bar r as codificadas, esse sistema oferece 
grande velocidade e confiabilidade no con t role de mercadorias. 



'J^sbss* 




Lei tor dtico 



sistema de 
codigo 

de barras 



A I win Wilhelm Elbern 



I 



maginemos um supermercado 
ou uma grande loja. com diver- 
sos departamentos, dezenas (ou 
ate 1 centenas) de vendedores e milhares 
de produtos diferentes. Dentro desse 
quadro, nao e dificil visualizar a dificul- 
dade de se controlar tudo isso (vendas, 
estoque, calculo de comissoes etc.), so- 
bretudo quando se consideram fatores 
criticos, tais como rapidez e confiabili- 
dade. Os controles tradicionais, mesmo 
computadonzados, revelam-se relativa- 
mente lentos (pela burocracia que re- 
querem) e sujeitos a erros (em virtude 
das transcncSes que envolvem, desde o 
preenchimento de plamlhas, ate a entra- 
da de dados via teclado). 

Para contornar esse problema, foi de- 
senvolvido nos Estados Unidos, no mi- 
cio dos anos 70, um processo que permi- 
tiu re^'izar todos esses controles a partir 
de uma etiqueta codificada, afixada no 
propno produto: o sistema de aquisi9ao 
de dados por codigo de barras. Com 
isso, conseguiu-se aumentar substancial- 
mente tanto a velocidade (pois e huma- 
namente impossivel teclar manualmente 
informa56es de 5 a 1 2 caracteres na ra- 
pidez de uma simples passagem de leito- 
ra 6tica sobre uma etiqueta de 3 a 4 cm 
de compnmento) quanto a precisffo da 
entrada de dados, uma vez que as barras 
de controle, por serem embutidas nos 
codigos, tornam virtualmente impossivel 
o reconhecimento de um dado erroneo 
pelo computador. 



TIPOS DE CODIGOS 



Da mesma maneira como o famoso 
C6digo Morse da telegrafia utiliza pon- 
tos e tra?os para representar caracteres 
alfanume'ncos, o codigo de barras faz 
uso de pequenas barras espacadas para 
representar digitos e letras. 

pnncipio em que se baseia a leitura 
dos codigos de barras 6 a reflexao da luz 
nos espacos claros e sua absorcao nas 
barras escuras. Quando o sensor otico 
passa pelo codigo, ele deteta as diferen- 
cas de intensidade da luz absorvida nas 
barras e refletida nos espa90s, modulan- 
do, assim, um sinal el^tnco que sera 
postenormente decodificado pelo com- 
putador. 

Esses c6digos sao extremamente di- 
versificados entre si, de acordo com a 
aplicacao, mas conservam todos a carac- 
teristica essencial de serem reconheci- 
veis por um instrumento de leitura 
otica. Um dos c6digos mais conhecidos 
i o UPC (Umversal Product Code), 
introduzido nos EUA em 1973 nos pro- 
dutos de supermercados. Desde entao 
outros codigos surgiram, como Codigo 
39, o Codigo 2 de 5, o C6digo Hewlett- 
Packard (HP) e o C6digo Binano, entre 
outros, e o sistema, lrucialmente cnado 
para operar com equipamentos de gran- 
de porte, passou a ser utilizado tambem 
com microcomputadores. Alguns desses 
codigos sao mostrados na figura 1 . 




'I2345"67890 
Codigo UPC 



1266 0033< 

Codigo 39 



Codigo HP 



Codigo Binorio (LOGITEC) 



Figura 1 - Exemplos de eddigos de barras 
mais comuns. 



Como exemplo, para um melhor en- 
tendimento da codificacao por barras, 
analisemos o codigo denominado 2 de 5. 
Neste, cada digito 6 representado por 
duas barras largas e tres estreitas, num 
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total de 5 (dai o seu nome), sendo que 
os espacos entre as barras - no caso 
especifico deste c6digo — nao contem 
nenhuma lnformacao. As barras largas 
sao tres vezes as estreitas e os espacos 
sao, pelo menos, da largura das barras 
estreitas. 

Na figura 2, estao representados os 
codigos de barras para os niimeros 1 , 2 e 
3, e para o numero 123, na formacSo do 
codigo 2 de 5. Como podemos observar, 
o codigo completo 6 precedido por uma 
"guarda" esquerda e uma "guarda" di- 
reita. Essas guardas sao as barras de re- 
conhecimento, que permitem identificar 
o inicio e o fim da informacSo, bem 
como garantir a bidirecionalidade da lei- 
tura, fazendo com que uma etiqueta 
codificada possa ser hda da esquerda pa- 
ra a direita e vice-versa. 

No exemplo da figura 2, o c6digo do 
numero 123 e" construido da esquerda 
para a direita pela adicao dos codigos do 
numero 1 , representado por uma barra 
larga seguida de tres barras estreitas e 
outra larga. Depois desse, vem o nume- 
ro 2, formado por uma barra estreita, 
uma larga, duas estreitas e outra larga. 
Assim, pela justaposicao dos codigos 
individuals, 6 formado o c6digo comple- 
to. De um modo geral, se considerarmos 
a barra larga como sendo o bit 1 e a es- 
treita o bit 0, este codigo obedece a for- 
macao descnta na figura 3. 

Outro cbdigo que merece destaque, 
por ser produzido no Brasil, e" o C6digo 
Logitec, desenvolvido para uso em mi- 
crocomputador pela empresa gaucha do 
mesmo nome. Trata-se de um c6digo 
binano com um numero maximo de seis 
digitos, que pode ser impresso em eti- 
quetas autoadesivas em formulano con- 
tinuo, de acordo com a numeracao dese- 
jada. Este cddigo, tambe'm bidirecional, 
e auto-checavel, nao requerendo digitos 
adicionais de controle. 

LEITURA E RECONHECIMENTO 
DOS CODIGOS 

Os dispositivos de leitura de codigos 
de barras sao geralmente constitui'dos 
de uma fonte de luz mfravermelha din- 
gida sobre o codigo, um foto diodo que 
deteta vanacoes da luz refletida e uma 
interface para a configuracao dos sinais 
etetncos de acordo com o computador 
utilizado. 

Em geral, o espagamento entre os 
elementos de codigo, suas espessuras, 
bem como o contraste da impressao na 
etiqueta sao os elementos que definem 
os dispositivos de leitura dos codigos. 
Assim, por exemplo, a densidade das 
barras na etiqueta utilizada determina o 
tipo de leitor 6tico que se vai usar. 
Quanto mais densa a etiqueta, mais ca- 
racteres por unidade de compnmento 
poderao ser utilizados, mas, consequen- 
temente, maior sera" a precisao necessa- 
na para decodifici-los. 
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CODIGO BDES-Examplo 



Codigos Individuals 




guordo 12 3 gxordo 

ttqutfao dirtiio 

Codigo Coraplsto 



Figura 2 - Formacdo do cddigo de barras 2 
de 5. 
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* P - 81 t da Paridade 
E - Barra Es trei ta 
L - Barra Larga 



Figura 3 - Valor dos bits na formacdo do cd- 
digo de barras tipo 2 de 5 (SKAN-A-MATICJ. 



problema de transfenr as mforma- 
coes da etiqueta codificada para o 
computador podena, a primeira vista, 
parecer relativamente facil, pois, em 
pnncipio, bastana juntar os zeros e uns 
em bytes de 8 bits e armazend-los na 
mem6na para depois processa-los. A so- 
lucao, no entanto, e" mais complexa, 
pois o programa para decodificar esses 
c6digos deve ser capaz de tratar proble- 
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C0NFI6URA0OR 


Varifico o volidoda 
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bytaa a tasto o 
poatibilidoda da arro 


/"^HOUVE 




SIM 




I nXo /Maoaogam A 
x*v 1 da arro ou I 
( ' ) \rajaip8o J 



Figura 4 - Esquema simplificado do software 
de decodificacdo dos cddigos de barras. 



mas, tais como vanacoes de velocidade 
no momento da leitura, vana§6es na 
qualidade de impressao da etiqueta, rui- 
do da leitura 6tica etc. 

Um programa de aquisicao de dados 
atrav^s de c6digo de barras, al6m de de- 
pender do tipo de codigo empregado 
e das caracteristicas do computador, e 
muito complexo. Esses programas geral- 
mente seguem o esquema simplificado 
da figura 4, onde o programa leitor pro- 
duz um sinal decodificavel que, em 
seguida, e armazenado, em forma de bits 
sequenciais, num buffer (memdria mter- 
mediana). Com a ajuda do programa se- 
quenciador, os bits de paridade - de 
guarda e leitura, conforme o caso - sao 
detetados e configurados em bits corres- 
pondentes aos digitos lidos. 

programa configurador venfica a 
validade dos bytes, testa erros e aceita, 
ou nao, a leitura efetuada. Uma vez acei- 
ta a leitura, esta pode entao ser proces- 
sada em programas utilitanos - escntos 
im BASIC, por exemplo - de acordo 
com a utilizacao das etiquetas codifi- 
cadas. ■ 
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dade de Ruhr-Bochum, Alemanha Ocidental, 
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Departamento de Engenharia Nuclear da 
UFRGS, com Areas de trabalho em microcom- 
putadores aplicados A automacao de processos 
e aquisicao de dados. 
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m.5. Serv.r;os 



OfiTfl 5QLUTiQtt 

Que tal conversar com 

profissionais de Informatica 

para resolver o seu 

problema? 

Visite-nos 

A solucao adequada voce 

encontrard aqui. 

Desde cur sos de alto ntvel 

para iniciantes e 

profissionais, 

microcomputadores, 

software, 

assistencia e assessoria 

tecnica ate o suprimento 

adequado. 

Av. Euzebio Matoso, 654 — 

Tel. 813-3355 — SP — 

cep. 05.423 



BIBLIOTECA 
DE INFORMATICA 



BOLSA 
DE SOFTWARE 



BUREAU 
DESERVIQOS 



QUAUDADE E 
RESPONSABILIDADE 

A PREQOS 
REDUZIDOS 



M± Representante 

WJ1 Credenciado 

dJSmOC (Micro Computadores) 

JK or €>on COME RC.Q E RKSQNfl 

Rua Conde de Bonfim, 344/406 
Bl. 1 ■ Tijuca ■ RJ ■ Cep 20520 ■ 
Tel.: (021) 234-3945 ■ C.P. 241 1 7. 



r PORTUGUES 
TECNICAS DE REDAQAO 

EGRAMATICA 

Credenciado no Conselho Federal 
Sob n.° 1039 

Estude em sua casa por corres- 
pondence ou no pr6prio CURSO 
GPF 

Nao perca esta oportunidade! 
Aceitamos matricula com pseudc- 
nimo 



© 



CURSO GPF 



COMPUTACAO 
NO COMPUTADOR 



Credenciado no Conselho Fe- 
deral Sob. n° 1039 
Linguagem BASIC 
Voce aprendera linguagem 
BASIC, praticando no Com- 
putador. O curso e preparado 
para que voce esteja apto a 
programar no proprio compu- 
tador. 

VOCE VAI PROGRAMAR! 

Curso tambem por correspon- 
dencia 



Rua Maxwell, 388 - Tel. (021) 
2380388 - Rio de Janeiro • RJ - 
Cep.: 20.540 

Atendimento e tira duvidas 24 hs. 
pordia. 

CURSO TAMBEM 
PARA EMPRESAS: 
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HS 

Computadores e 
Sistemas Ltda. 



Revendedor BRASC0M 
Microcomputador BR1000M: 
1 a 6 terminais MULTIUSUARIO 
De 2,4 a 384 Mb em- disco 
Impressoras de 100 CpS a 600 Lpm. 
SOFTWARE: Contabilidade, 
Administracao de Pessoal, 

VENDA E RESERVA DE INGRESS0S 

Contas a receber/Pagar, 
OPEN MARKET, 
Faturamento e outros. 



Rua das Marrecas. 25 S/ 1001 

Tel.: 262-0697 - ligue HS 

Rio de Janeiro - RJ 
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Rua Maxwell. 388 - Tel. 238-0388 
Rio de Janeiro - RJ. Cep.: 20.540 
Atendimento e tira duvidas 24 horas 
por dia. 



sum 

Assistencia Eletronica Ltda. 



Rua da Lapa, 107-1? and 
Tels.: 222-7137 e 222-2278 
Rio - RJ. 




Video e Audio Ltda. 

MICROCOMPUTADORES 

VIDEOCASSETES 

VIDEOGAMES 

Adaptacio TV Cor PAl-M/NTSC/N' • 2H 

Chaveado ■ Video Direlo e Inverse Transtorma- 

cSopecasongmais 

Atari Coleco-VIC-20TRS-80 

TK 82/85 • Sinclair - Apple/6500 

TELEVISORES 

Sony • Sharp • Sanyo • Phillips - Philco • Telef un- 
Ken etc. 

SOM EM GERAL 

Transcoder • Chaveamento - Manutencao 
Assistencia Tecnica Especializada 
Servigo Garantido - Pecas Originais 

Rua Conde de Bonfim. 375 S/807 • Tijuca 
Rio de Janeiro • RJ. Tel.: 258-3349 



O I- ui tiro do Homem 

esta na Informatica 

Inscreva-se ja para aprender 

ou aperfeicoar-se at raves da 

mais moderna metodologia 

— IPDdntr. ao Pcoc. de Da- 
dos 

— Programacao Basic 

— CP/M (Sist. Oper. p/ Mi- 
crocomputador 

— Programacao Cobol 

— Projeto/ Programacao es- 
truturada 

— Curso de micro especial 
p/crianv'a 

KPI) 
fe-*\ Processamenlo de Dados e 
' Mstemasde Informacan 
ltda. 

Computador proprio, Turma: 
Manha.tardeenoite 

Rua Constanta Barbosa, 188 

Solas 403/8/9 
Tel.: 593-4248 - Meier ■ RJ. 



MICROIDEIA 



SOFTWARE f /TK 82 C - TK-85 • & 200 

CMHII Ptko'ORTN 

— Control* da aaloqua 

— Contas a pagar/racabar 

— Fiuio da Calxa 

— Mala di-al • 

— Cadastre da ciwntas 

— Procassador da laitos 

— Control* bancario 

— Contabilidad* domastlca 

— Aganda taialomca 

— Fitolaca 

— Or camanto domastico 

— Histograms G*ral 

— Control* da contraios 

— R*s*rva d* conauttas 

JOGOS A 1 OBTN 

— Allan Blaster ■ Bombardaro ■ Casslno Orgao All 
Baba/Cosmlc Radar - Spaca lnyad*rs 

SOFTWARE P/CP 500 
Em Disco 

— Control* d* astoqua - Procass da Taito 

— Contas a Pagar/Racaoar - Cadaslro da Cllantas 



ATENDEMOS P/REEMBOLSO 
POSTAL OU AEREO 



REPRESENTANTE: MICRO HOUSE 

Com R*pr*nt. Ltda. R. Vlsconda da Plrala. S47 

5 '307 ■ Ip.n.m. C«p 22.410 Tal. 294 62*8 ou 

atrav*sda MICROIDEIA Av Marechal Camara. 

160/1.426- Caslrto Rio Cap 20.020 

p*lo BIP J69 Central 246-4160 



No Recife, visite 
T E L E V I D E (') 

Lojao de Informatica mais des- 

complicadodo pais 1 

Micros, perite'ricos. suprimentos. 

Software. Cursos. Livrose Revistas. 

Componentes eletrrjnicos. pecas e 

Som. 



PREQ0S ESPECIAIS. 
FINANCIAMENTO PROPRIO 



Compre pessoalmente ou pelo 
Reembolso 

TELEVIDEO LTDA. 

R. Marques de Herval, 157 

Tel.: (081) 224-8932, 

RECIFE, PE. 



(') Sr. Industrial: distribuimos s/ 
produto nas melhores condi 
goes: contatos em S. Paulo (011) 
223-5480. 



PEEK 



POKE 



Assessoria e Programas 
para CP-500 

-APLICATIVOS 
-UTILITARIOS 
-JOGOS 

Solicite relacao completa 



Tel. (Oil) 64-0847 
Caixa Postal 19059 
CEP 04599 Sao Paulo SP 



COMPUTERS 

ABE OUR 

PROBLEMS 

We are a specialized group 
in computers, parts and pe- 
ripherals. 

We can quote and sell what 
you need in our area, quo- 
ting from Japan, Europe and 
all U.S.A. 

Please send us a letter te- 
lling what you need and 
you ■ re gonna have the best 
prices. 

We expect to receive a letter 
soon from you. 

Write to 

Export Ltd. 

P.O. Box 2157 

Miami Beach - Fla. - 33140 - USA. 



m.S. SeruicDS 



COMPUTADOR 



"CONTABILIDADE 
E DIVERSOS" 

I VOL. Programas em lin- 
guagem "BASIC", Aplica- 
coes completamente resolvi- 
das. TK-82 C, TK-85. NE 
Z8000, SINCLAIR Z X 81. 
Quantidades - TEL.: 239-4264 
Varejo — Av. Afranio Melo 
Franco. 170 Lj. B. 

LEBLON 

BANCA JORNAL — Av. 
Ataulfo Paiva Esq. R. Carlos 
Goes — Leblon 
PRECO CrS 3.900.00 
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Computadores 







Kst. da (;avea. 642 Lj B Sao 
Conrado - RJ - Tel.: 322-1960 




NfTC CM • (NWnMa M C9MTRMUM *■•• I 

MM • I isc*CU«;k*i |K»»I«M« TKiMnica BriMi M 

wt or** Oman km* pm OHtortt • hm •■ OtacM 

• r»|ll>lllll. Ann M" t M|—«l Mmtftil « 13 M M 

guntti cubs 



• Skwii « C«nuiw»«Mi wr FMjtm Optical 

• Ha#nra m tMi>iiriiinii1 

• MntiiMMMMMl 

• C*niM«WMi McKWWaMfti DMjiM-Hartwirt 

• IImiHii I - MmiitKn 

» ltj«— t»M *n » m «lHMi MM/IS 
» If — I ■ "J H II HM IIIW.I Z-W 

• MtrlKtMWM • N"tar<c*t *• MP MK 

• Mite l l i l « MrWWfl 1 Mf Mi 

• EM*** Ota* I - CMMMdMMt 



mkWHOwnuHH 



• KNOW-HOW DM VOCE OKKI 1 



ftntia cmMco neuo laMrani Mm* 

t ■ m i m • mu man mm. 37/ ?■ ano 

Cmlto I En tmilllKil CMUnttJ 
KJ • 2' I 6" Dai 16 00 Mil ?? 00 hi 
SabaOoi <as OS 00 hi MlTOOl 
T«L: I H I! II Mm: 




MICRO-COMPUTADOR 

IBM personal computer CPU c/ 

256K, Drives c/ 320K (densidade 

dupla) Video: BMC. Mod. 1200SU 

Impressora: Epson MX 100 III, 

136 colunas 

Sistema Operacional DOS e CPM 

Softwares: Basic, visicalc, visis- 

chedule, D. Base I Manual de 

operagao e diagnostico. 

Fone: 240.41.15/14.81 c/Custodio 

Neto. 



Siga os passos dosgrandes mestres: mas ao i rive's de pub Hear um livro, armazene 
em um so programa suas me/ho res (ou pioresM partidas de xadrez. 



Minhas piores 
partidas de xadrez 



L. C. Lobato 



01 programa denominado Partidas de Xadrez perrrute 
que voce" armazene partidas deste jogo sem, no entan- 
to, ter a necessidade de recorrer a arquivos em fita 

cassete ou em disco, pois os lances sao armazenados dentro do 
propno programa, sob a forma de DATA. 

Para colocar os lances de suas partidas, basta editar o pro- 
grama, acrescentando novos comandos DATA, no lugar apro- 
pnado, e depois regravd-lo. 

Este programa 6 muito litil para quern joga Xadrez Postal 
e necessita de toda a partida a cada lance do adversano. 

COMO FUNCIONA 

Inicialmente sao lidos os dados referentes as partidas e 
mostrados os nomes dos tomeios e dos parceiros em cada tor- 
neio. Deste modo voce escolhe qual partida deseja ver. Os tor- 
neios e os parceiros s3o numerados com os numeros de 1 em 
diante, e voce os escolhe pelo niimero. 

Em seguida, o tabuleiro e desenhado na tela e voce passa a 
assistir ao desenrolar da partida. Ap6s cada lance voce deve 
apertar qualquer tecla (exceto BREAK) para que o segumte 
seja mostrado. Quando, porem, a tela ficar cheia, sera necessa- 
no um aperto de tecla adicional para apagar os lances anteno- 
res e mostrar o seguinte. 

Ao terminar a partida, aparece a palavra FIM no lugar do 
novo lance. Entao, apertando qualquer tecla, o programa ter- 
mina. Querendo outra partida, execute novamente o programa. 

Voce poderd armazenar partidas ate" o limite de memona de 
seu computador e dos indices de algumas vanaveis, conforme 
veremos mais adiante. Mas caso voce armazene muitas partidas, 
entao acontecera um pequeno problema: o micro demorara um 
pouco mais para localizar a partida desejada. 

Para melhor entendimento do programa, veja ainda a descn- 
cao das vanaveis utilizadas e das pnncipais linhas de comando, 
mostradas a seguir. 



• Descricao das vanaveis : 

BS%(8,8) - posica"o das pecas no tabuleiro 

TS%(8,8) - cores das casas (branca =0 e preta =1) 

P9%(25,1 1) — desenho de cada peca na casa branca ou preta 

TS(5) — nome do torneio (maximo de 6) 

NS(50) - nome do parceiro (ate - 51) 

PT%(5) - numero do ultimo parceiro de cada torneio 

YM$ - lance na notacSo alge"bnca 

VM - pos^ao de mem6ria do vi'deo 

C1.R1 — coordenadas da posic/o micial da pega 

C2,R2 — coordenadas da posic^o final da peca 

• Descricao das principals linhas de comando : 

30 a 90 - leitura do nome dos torneios e dos parceiros 

1 20 a 1 30 - cnacao da matnz TS% 

160 a 200 - cria^ao da matnz BS% 

210 a 470 - cnacao da matnz P9% 

480 a 520 - desenha a poacjlo micial das pecas no tabuleiro 

620 a 740 - leitura e codificacao dos lances 

750 a 850 - movimentacao das pecas 

1010 a 1 100 — movimentos de roque pequeno e grande 

1110a 1 140 - controle de paginacSo dos lances 

1210a 1340 - selec^o da partida desejada 

1 500 a 1 550 - lances na notaca"o alge"bnca 

OBSERVANCES IMPORT ANTES 

As pe?as sao desenhadas utilizando-se os caracteres graficos 
de video, codigos deamais de 128 a 191, de acordo com a ta- 
bela das linhas 220 a 470. 

A matriz BS% guarda a posic^o de todas as pe?as do tabu- 
leiro, desde o inicio ate o final da partida, e para isso utiliza os 
indices da matnz P9%. Assim, se BS%(1,1)=20, entao na li- 
nha 1, coluna 1, existe uma tone branca em casa preta; e 
assim por diante. 
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desenho das pecas 6 tal que, em qualquer situacao, a cor 
do centro da peca define se ela e" branca ou preta. As pecas s3o 
desenhadas utihzando-se duas linhas e 6 colunas. Dessa forma, 
o tabuleiro ocupard 16 linhas por 48 colunas, ficando o resto 
da tela para o nome do adversano e os lances. 

Caso voce nSo queira apertar teclas para passar de um lance 
para o seguinte, basta colocar o comando RETURN na hnha 
1180. 

Para cada torneio, coloque um comando DATA com a pa- 
lavra INICIO e, em seguida, o nome do torneio (linhas 1500 e 
1 530). Para cada parceiro, coloque um comando DATA com o 
respectivo nome e, logo a seguir, comandos DATA com os lan- 
ces, terminando a partida com a palavra FIM (linhas 1510, 
1520 e 1540). No final de todas as partidas, coloque um co- 
mando DATA com a palavra FIM (hnha 1550). 

N5o ha" limite de" lances por partida e o numero maximo de 
torneios e parceiros i dado pelos indices das vanaveisTS, NS e 
PT%, dimensionados na hnha 10 do programa. 

Finalmente, se qualquer lance for codificado de forma erra- 
da, saira o lance e a mensagem ERRO DE DADO, devendo o 
programa ser lnterrompido por BREAK. Qualquer tentativa de 
continuar ocasionara" erro. 

Uma observacSo: as partidas exemphficadas na hstagem slo 
reais e nao foram as mm has piores partidas... 

O programa Partidas de Xadrez foi baseado no programa 
Chess Tutor, pubhcado na 80-Microcomputing, dez./81 . 

Luii Carlos Lobato Lobo de Medeirose" Engenheiro Eletrdnico forma- 
do pelo IT A em 1968. Comecou a trabalhar em processamento de 
dados em 69, nas drnas de ProducSo e Suporte Tdcnico em equipamen- 
tos IBM, e atualmente e" assessor do diretor de Recursos Humanos da 
Telebras para assuntos de processamento de dados, em Brasilia, cargo 
que tern como objetivo estimular a utilizacao de microcomputadores 
entre os empregados da diretoria. 



Partidas de Xadrez 



10 DEFINTA-Z:DIMBSX(8,8).TSX<8,8).P9X<23, 11 >,T$<5) ,!»< 
50).PTX<5> 

20 CLS:PRINTTAB (20) "PARTIDAS DE XADREZ":PRINT:PRINT 

25 ' ROTINA DE LEITURA DOS TORNEIOS E PARCEIROS 

30 READA*tIFA«O"INICI0"THEN30ELSETI=0:NI=0 

40 READT»(TI):READN$<NI) 

50 READA$:IFA«<>"FIH-THEN50ELSEREADA$:IFA«="FIM ,, THENPT 

X(TI)=NI:GOSUB1200:GOT080:ELSEIFA*=" INICIO "THENPTXt 

TI )«NI ITI-TI+1 INI-NI+1 :GOT040: ELSENI=NI + 1 : N« <NI > =A«: 

G0T050 
80 INPUT" Inform* numero do torneio e numero do parceiro 

";T1,N1 
90 IFT1=0THENENDELSECLS:REST0RE:T1=T1-1:N1=N1-1 
110 ' DEFINICAO DAS CORES DAS CASAS - CT=0 BRANCA, CT»1 

PRETA 
120 CT=l:F0RI=lT08:F0RJ = lT08:TSr.U,J)=CT:BT=CT:IFCT*lTH 

ENCT=CT- 1ELSECT=CT+1 
130 NEXTJ:CT=BT:NEXTI 

140 MV=0:P=0:CP=132 

150 ' DEFINICAO DA P0SICA0 INICIAL 

160 F0RI*1T08:F0RJ=1T08:READBS7.(I.J):NEXTJ. I 

170 DATA20, 9, 22, 11 ,24, 10, 21, 8, 7. 19, 7, 19, 7, 19, 7, 19 

180 DATA25, 0.25, 0,25, 0,25. 0,0, 25, 0.25, 0,25, 0.25 

190 DATA25, 0,25, 0,25, 0,25, 0,0, 25, 0,25, 0,25, 0,25 

200 DATA13, 1.13,1,13. 1.13.1,2,15.4,17,6.16.3, 14 

205 ' DESENHO DAS PECAS 

210 F0RI=0T025: F0RJ=0T01 1 : READP9V. ( I , J ) : NEXTJ. I 

220 DATA191, 191. 191, 191, 191. 191. 191. 191. 191. 191, 191, 191 

:'CASA BRANCAVAZIA 
230 DATA191, 191, 143, 175. 191, 191, 191, 183, 176. 178. 191, 191 

:'PEA0 PRET0 CASA BRANCA 
240 DATA191. 147, 135. 139, 163. 191. 191, 177. 176. 176, 178. 191 

:' TORRE PRETA CASA BRANCA 
250 DATA191. 143. 131, 131, 131. 191. 191. 191, 177, 176. 184. 191 

J'CAVALO PRET0 CASA BRANCA 
260 DATA191. 159, 131, 139, 191, 191, 191, 183. 176, 178, 191, 191 

:'BISP0 PRET0 CASA BRANCA 
'270 DATA191, 154, 129. 139, 186. 191. 191. 179, 176, 178, 187, 191 
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Tire seu micro 
isolamento 
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Agora que voce ja adquiriu seu micro e esta tirando 
partido de tudo o que ele pode fazer, saiba que isso e apenas 
oinicio. 

Acoplando um modem UP 1200/D Parks ao seu 
aparelho, voce sai do isolamento e pode interligar seu 
microcomputador ao de um amigo ou banco de dados, 
atraves da linha telefonica, ampUando 
consideravelmente seu uso, seja para o trabalho ou lazer. 

De maneira rapida e eficiente, facil como dar 
um telefonema, voce podera copiar 
programas, aumentar seus dados de 
mem6ria, receber e transmitir as mais 
variadas informacoes, e ate jogar xadrez a 
distancia. De operagao simples, o UP 120O/II tern baixo custo de 
funcionamento e manutencao e pode ser utilizado em linhas privativas ou discadas. 

De vida nova ao seu micro. Tire-o do isolamento com UP 1200/11 Parks: 
o modem da integracao. 



Parks - Equipamentos EtetrAnlco* Ltda. 

S! fSSS ?, U k i?-, r , rea . VaS ar S ^ 5 J,;, F0ne '£! " MM36 ° • "» (0»» 23141 • Bala Horizoate: Av. Afonso Pens. 941 

°" 9! ™t\L}} :, B '^™= ^li 03 • ft? A • ^ 37 ■ Fone I 061 ) 255 -° 538 • Curitlb " : Rua C" 10 " d« Carvalho. 1 766 
Fone (041) 232-1814 - tl x (041) 5406 • Porto Aleara: Av. Parana. 2335 - Pone (0512) 42.5500 - tlx (051) 1043 • Recife: Av. Conselheiro 
Agumr. 5025 - con) .104 - Fonos 081) 325-21 23 e 325-2307 I Av. Norte. 3090 - Fone (081) 241.5309 .Rio de Janeiro: Av Rio 
Branco, 245 - s/2102 - fone. (021) 220-2149 • Salvador: Av. Amaralina. 818 - saia 102 - Fone (071) 249-9744 e 247-6344. 
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MINHAS PIORES PARTIDAS DE XADREZ 



:'DAMA PRETA CASA BRANCA 
280 DATA159, 143, 145. 155, 143, 191 , 181 , 176, 176, 176, 176, 191 

I 'RE I PRETO CASA BRANCA 
290 DATA191, 191, 143, 175, 191. 191. 191, 183. 178. 178. 191, 191 

:'PEA0 BRANCO CASA BRANCA 
300 DATA191, 147. 167. 155. 163, 191, 191. 177. 179, 179, 178, 191 

:' TORRE BRANCA CASA BRANCA 
310 DATA191, 143, 131, 179, 131, 191, 191, 191, 177, 179, 184, 191 

t'CAVALO BRANCO CASA BRANCA 
320 DATA191 , 159, 179, 155, 191 , 191 , 191 , 183. 178, 178, 191 , 191 

!'BISPO BRANCO CASA BRANCA 
330 DATA191, 154, 185. 155, 186, 191. 191, 179, 178, 178, 187, 191 

:'DAMA BRANCA CASA BRANCA 
340 DATA159, 143, 145, 155, 143. 191 , 181 , 176, 164, 164, 176, 191 

:'REI BRANCO CASA BRANCA 
350 DATA128, 128, 176- 144,428, 128, 128, 136, 141 , 141 , 128, 128 

:'PEAO PRETO CASA PRETA 
360 DATA128, 172, 152, 164. 156, 128, 128, 142. 140, 140, 141, 128 

:' TORRE PRETA CASA PRETA 
370 DATA128, 176, 188, 140. 188. 128- 128, 128, 142. 140, 135, 128 

:'CAVALO PRETO CASA PRETA 
380 DATA128, 160, 140, 164, 128, 128, 128, 136, 141, 141, 128, 128 

:'BISP0 PRETO CASA PRETA 
390 DATA12B, 165. 134, 164, 133, 128. 128. 140. 141 , 141 , 132, 128 

:'DAMA PRETA CASA PRETA 
400 DATA160, 176, 174, 164, 176, 128, 138, 143, 140, 142, 143, 128 

:'REI PRETO CASA PRETA 
410 DATA128, 128, 176, 144, 128, 128, 128. 136, 143. 141. 128, 128 

:'PEAO BRANCO CASA PRETA 
420 DATA128, 172, 184, 180, 156, 128, 128, 142, 143. 143, 141, 128 

:' TORRE BRANCA CASA PRETA 
430 DArA128. 176, 188, 188, 188, 128, 128. 128, 142, 143, 135, 128 

:*CAVALO BRANCO CASA PRETA 

440 DATA128. 160, 188, 180, 128, 128, 128. 136, 143, 141, 128. 128 

1'BISPO BRANCO CASA PRETA 
450 DATA128, 165, 190, 180, 133. 128. 128. 140. 143, 141, 132, 128 

:*DAMA BRANCA CASA PRETA 

460 DATA160, 176, 174, 164, 176, 128. 138, 143, 143. 143- 143, 128 

:*REI BRANCO CASA PRETA 
470 DATA128, 128, 128, 128. 128, 128, 128, 128, 128, 128. 128, 128 

:'CASA PRETA VAZIA 
480 VM=15376:VN=0:'R0TINA DE DESENHO DO TABULEIRO 
490 F0RI=8T01STEP-1:F0RJ=1T08:F0RK=0T05 
500 P0KEVM+VN+K,P9X(BS%<I,J),K> 
502 P0KEVM+VN+K+64.P9X<BS*(I,J),K+6> 
510 NEXTK:VN=VN+6:NEXTJ:VM=VM+128:VN*0:NEXTI 
520 VM=15376:60SUB1110 
530 G0SUB13O0 

540 PRINT80,"ADVERSARI0"::READA$:PRINT864,LEFT«(A», 15); 

600 IFP=0THENMV=MV+1 

610 PRINT«CP-4,MV: 

615 'LEITURA DOS LANCES 

620 READVM*:IFYM$="FIM"THENPRINTeCP+P*6,YM$;:G0SUB1180: 

END 
630 PRINT9CP+P*6,LEFT$<YM*.2)+"-"+RIGHT$(YM*,2) ; 
710 C1=ASC(MID$(YM$,1,1))-64:R1=ASC(MID«<YM$,2, 1) )-48 
720 C2«=ASC(MID« (YM$,3, 1 > ) -64: R2=ASC (MID* < YM«. 4.1)) -48 
730 1FCK10RC1>80RRK10RR1>B0RC2<10RC2>80RR2<10RR2>8THE 

NG0SUB1110:G0T0870 
740 IFBS7. (Rl. CI )=00RBS7. (Rl , CI ) =25THEN870 
745 ' R0T1NA DE MOVIMENTACAO DAS PECAS 
750 BS7.(R2.C2)=BS*<R1,C1>+12*<TS%<R2,C2)-TS7.<R1,C1)):B 

S7.<R1,C1)=25*TSX<R1.C1> 
760 IFP=0ANDYM*="E1 Gl " ANDBS7. (1,7) =24THENBSX < 1 , 8 > =0« BS% 

(1,6)=8:G0SUB1070:G0T0B55 
770 IFP=0ANDYM$="E1C1 "ANDBS7. (1,3) =24THENBSX ( 1 , 1 ) =0: BSX 

(1.4)=8:G0SUB1010:G0T0855 



780 IFP=1ANDYM»="E8G8"ANDBS7.(8,7)=6THENBS7.(B,8)=0:BS7. 

<B.6)=14:G0SUB1090:G0T0855 
790 IFP=1ANDYM«="E8C8"ANDBSX(8,3)=6THENBSX(8, 1>=0:BSX 

(8.4)=14:G0SUB1030:G0T0855 
800 Jl=VM+( <8-Rl)*128)+((Cl-l)*6):J2*VM+(<8-R2)*128)+< 

(C2-1)*6):F0RI=0T05 
BIO P0KEJ1 + I.P97.(BS7.(R1,C1).I) 
820 P0KEJ1+I+64,P97.(BSX(R1,C1), 1+6) 
830 P0KEJ2+I.P97.(BS7.<R2,C2) .1) 
840 P0KEJ2+I+64,P9X(BSX(R2,C2>,I+6) 
850 NEXT I 
855 60SUB1180 

860 1FP=0THENP= 1 : G0T0620: ELSEP=0: G0SUB1 110: GOT0600 
870 G0SUB1110:PRINTeCP-4,"ERR0 DE DADO": : GOTO 11 25 
1005 ' GRANDE ROQUE DAS BRANCAS 
1010 FORII=0T05:P0KE16272+II,128:P0KE16336+II.128:POKE 

16284+II,P9/C(24,II):P0KE16348+II,P97.(24,II+6> 
1020 P0KE16290+II,P9X(8,II):P0KE16354+II,P97.(8, II+6):P 

0KE16296+II,128:P0KE16360+II,128:NEXTII:RETURN 
1025 ' 6RANDE ROQUE DAS PRETAS 
1030 FORI I =0T05: POKE 15376+1 1, 191 :P0KE1 5440+1 1, 191 :POKE 

15388+II,P97.(6, II > :P0KE15452+II ,P9X<6. II+6) 
1040 P0KE15394+II,P97.<14, II ) :P0KE15458+II .P9XU4, II+6) 

: POKE 15400+ 1 1 . 1 91 : P0KE1 5464+1 1 , 19 1 : NEXT 1 1 : RETURN 
1065 ' PEQUENO ROQUE DAS BRANCAS 
1070 F0RII=0T05:P0KE16296+II. 128:P0KE16360+II.128:P0KE 

16302+1 1, P97.< 8, II):P0KE16366+II.P9X(8,II+6) 
1080 POKE 16308+ II, P9X (24, II > :P0KE16372+II ,P9X<24, II+6) 

: POKE 1631 4+ 1 1 , 1 91 : P0KE1 6378+ 11.191: NEXT 1 1 : RETURN 
1085 ' PEQUENO ROQUE DAS PRETAS 
1090 F0RII»0T05:P0KE15400+II,191:P0XE15464+II,19l:P0KE 

15406+II,P9-C<14.II):P0KE15470+II.P9X<14,II+6> 
1100 P0KE15412+II,P9X(6,II) :P0KE15476+II,P97.(6, II+6):P 

0KE15418+II.128:P0KE154B2+II,128:NEXTII:RETURN 
1110 CP=CP+64 
1120 IFCP<«974RETURN 
1125 G0SUB1180 

1 130 FORI 1= 192T0960STEP64 :PRINT8I I , STRING* < 15. 32) 5 : NEX 

T 
1140 CP=196:RETURN 

1180 A*=INKEY$: IFA*=" "THEN1 180ELSERETURN 
1200 ' ROTINA DE SELECAO DA PART I DA 
1210 K=0:J1=0:F0RI=0T0TI:PRINT"T0RNEI0":I+15 M -JT«(I); 

" PARCEIROS" 
1220 F0RJ=J1T0PJ7.(I):PRINTK + 1:" " :N$(K) : "/": :K-K+1:NEX 

TJ:PRINT:Jl=PU(I) + i:NEXTI 
1230 RETURN 
1300 RESTORE 
1305 K=0:J1=0 

1310 READA«:IFA*O"INICI0"THEN1310 

1 320 IFT1 >J 1THENJ 1=J 1 +1 : K=PT% ( J 1 > : G0T01310ELSEREADA* 
1330 IFN1=KTHENRETURNELSEK=K+1 
1340 READA*: IFA$< >"FIf1"THEN1340ELSE1330 
1490 ' COLOCAR AQUI OS LANCES NA NOTACAO ALGEBRICA 
1500 DATA INICIO. TCI/193 
1510 DATA MARCUS VILLELA,E2E4,E7E5,G1F3,B8C6,F1C4,F8C 

5, C2C3 , G8F6, D2D4 . E5D4. C3D4 , C5B4, B1C3. F6E4, FIM 
1520 DATA RUBENS SANTELL0.C2C4,E7E6,D2D4,D7D5,B1C3,C7 

C5,C4D5,E6D5,D4C5.D5D4,D1A4.B8C6,C3B5.F8C5,A2A3. 

A7A6,C1F4.EBF8.E2E4.D8A5.A4A5,C6A5.B5C7,A8A7,B2B 

4.C5B6.F4D6.FIM 
1530 DATA INICIO. VI 1 1 ZONAL 
1540 DATA FRAY J0SE.E2E4, G8F6.E4E5, F6D5,C2C4, D5B6.D2D 

4,D7D6,F2F4,S7G6.C1E3,F8G7,G1F3,D6E5,F4E5,E8G8. 

F1E2.C8F5.B1D2.FIM 
1550 DATA FIM 
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CURSO PRATICO DE BASIC — INTENSIVO 

COM APLICAQOES REAIS PARA EXECUTIVOS 

E ESTUDANTES — TURMAS DE 6 ALUNOS 

APENAS 5 SEMANAS C/2 AULAS SEMANAIS 

TESBI - Rua Guilhermina, 638 - Tel.: (021) 501-3297 * 249-3166 
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Datalife 




\feibatim 



« 



PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFIC A: 
QUALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PRECO DO MERCADO. 



DATALIFE " diskettes sao produzidos com uma unica 

preocupacao: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas tecnicas 

de producao e rigoroso controle de qualidade. 

DATALIFE ' diskettes 8 ou 5 1 /4 polegadas tern 

certificacao 100% sem erros. 

A diferenca DATALIFE " e pura e simplesmente qualidade. 



ENTREGAIMEDIATA 



FD 34-9000 


simples face simples densidade 

26 setores - 128 bytes, setor, 8 polegadas 


FD 34-8000 


simples face dupla densidade 

N8o setonzado - n9o formatado 8 polegadas 


DD 34-4026 


dupla face' dupla densidade 

26 setores - 256 bytes* setor 8 polegadas 


DD 34-4001 


dupla face dupla densidade - N3o setonzado 
n3o formatado 8 polegadas 


Entrega a partir de setembro 1 .983 


MD 525-01 


simples face dupla densidade 
5 1 4 polegadas 


MD 550-01 


dupla face dupla densidade 5 14 polegadas 



Em embalagem 
Caixas plasticas 



de cartao com 10 unidades 
opcionais. 



Revendedores e Fabricantes interessados: 
tel: (01V 262-5332 



PARA ENCOMENDAS FORA DE SAO PAULO, 

A MEMPHIS PAGA A LIGACAO. 

DISQUE (01V 800-8462 



)istribuidor: memphis 

Industria e Comercio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - Sao Paulo - Brasil 

CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 

Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 

Matriz: Av. Angelica, 35 - Sta. Cecilia - Sao Paulo - Brasil - CEP 01227 



MICRO SISTEMAS, Ano II 



MICRO SISTEMAS completa mais um ano de vida. Como fizemos 

anteriormente, aqui esta o nosso Indice, contendo 

todos os programas, artigos e reportagens que ocuparam nossas 

paginas nesse ultimo periodo, isto 6, do nQ 13 ao nQ 24. 

Consulte o Indice e realimente sua memdrial 




Numero 13, outubro 1982 

8 Conversio Universal de Numeros - 
Programa de Fabio Cavalcanti da 
Cunha para a TI-59. 

12 , VisiCalc, o formulario eletrdnico — Ar- 
tigo de Leo Nacelli. 

18 Inteligincia Artificial — Artigo de 
Antonio Costa. 

20 Livros — "Microcomputadores — Intro- 
ducSo a linguagem BASIC" de Roberto 
Kresch. 

22 O computador pessoal — I — Artigo de 
Renato Sabbatini sobre micros pessoais: 
surgimento, componentes e utilidades. 

28 Proteja seu programa no DGT-100 - 
Artigo de Newton Ouarte Braga Junior 
com dicas sobre a protecao de software. 

30^ Lista Telefonica Automatizada - Pro- 
grama de Roberto Chan. 

36 Modularidade e tecnologia aberta: as 
propostas da Del — Entrevista com 
Luiz Carlos Gomes, diretor da Del - 
Engenharia e ComputacSo Ltda. 

40 Informitica 82: ere see o espaco dos mi- 
cros — Reportagem sobre a II Feira e o 
XV Congresso Nacional de Inform^tica. 

44 Um programa para o pequeno investi- 
dor — Programa de Fausto Arinos de 
Almeida Barbuto. 

50 - MAtodos de OrdenacSo — I — Artigo de 
Roberto Chan e H6lio Lima MagalhSes 
sobre as caracteristicas e vantagens de 
onze SORTs — com os respect ivos 
programas implementados em BASIC 
— e uma ana'lise comparativa de todos 
eles. 

58 O impacto do micro na literatura 
tecnica — Reportagem sobre a edicao 
de livros e revistas sobre microcompu- 
tadores. 

60 Dupla face em disquetes simples — 
Artigo de Samuel Jose" MacDowell. 
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68 



72 



76 
80 



86 
91 



Conheca o interior do 6502 - Artigo 
de Carlos Eduardo Tarrisse da Fontou- 
ra. 

As impressoras - Artigo de Antonio 
Carlos J. F. Visconti sobre os tipos e 
caracteristicas das impressoras utiliza- 
das por microcomputadores. 
O micro e o Radioamadorismo — 
Artigo de Ma>io Negreiros dos Anjos. 
ExpansSo de 2 K para TKs e NEs - Ar- 
tigo de Manuel Maria C. P. de Castello. 
Curso de Programacao Sintltica para a 
HP-41C/CV - II - Continuacao do 
curso de Luiz Antonio Pereira. 
Palpites (ciberndticos) para a Loto - 
Programa de Ivo Ferreira Junior. 
Um ano de MICRO SISTEMAS. 



/Mioro 
Sistemas 




Numero 14, novembro 1982 

6 Representacao de figuras por compu- 
tador — Artigo de Luiz Antonio Perei- 
ra sobre a representacSo grafica de figu- 
ras no HP-85. 

12 Da maquina de escrever | maquina que 
escreve - Artigo de Arnaldo Humberto 
Parisoto sobre a evolucSo da comunica- 
cao escn'ta e as multiplas vantagens do 
uso de processadores de texto em uma 
empresa. 

20 Introduzindo a Logica — Artigo de Or- 
son Voerckel GalvSo. 

28 Calculo de vigas continues na TI-59 — 
Programa de Claudio Luiz Curotto. 

34 Programando para criancas — Artigo de 
Liane Margarida Rockenbach Tarouco 
sobre a utilizacao do microcomputador 
no ensino de criancas. 

36 O TK82-C: micro s6 no tamanho. 

40 Metodos de Ordenacao — II - Parte fi- 
nal do artigo de Roberto Chan e Hdlio 
Lima Magalhaes. 
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52 
56 



64 



72 



77 



78 
82 



88 



92 



Vfdeo texto: comeca no Brasil a socie 
dade de informacio — Reportagem so- 
bre a implantaca*o do sistema de video- 
tex to da Telesp. 

O computador pessoal — II — Parte fi- 
nal do artigo de Renato Sabbatini. 
XV Congresso Nacional de Informatica 
— Cobertura do evento com a selecao 
dos principals assuntos discutidos nos 
semina>ios, palestras e paine'is. 
II Feira Internacionalde lnforma"tk;a — 
Apresentagao dos principals lancamen- 
tos (hand ware e software), na Felra pa- 
ralela ao XV Congresso Nacional de 
Informatica. 

A primeira comunidade teleinformati- 
zada do Brasil — Reportagem sobre o 
Projeto Ciranda, Incluindo uma entre- 
vista com o Vice-Presidente da Embra- 
tel, Luiz Sdrgio Coelho Sampaio. 
Livros -"TK82-C ProgramacSo BASIC" 
da Microdigital Eletronica Ltda. 
Micro-Dicas — Monitores x televisores 
de Paulo Saldanha. 

Curso de Programacao Sintttica para a 
HP-41C/CV - III - Continuacao do 
curso de Luiz Antonio Pereira. 
MICRO SISTEMAS, Ano I - Indice, 
contendo todas as matdrias publfcadas 
em MS do numero 1 ao numero 12. 
Imares: solupdes integradas e pronta- 
entrega — Reportagem com a loja Ima- 
res Microcomputadores, SP. 



XS.-i 



/Micro 




Numero 15,dezembro 1982 

8 Mala direta no micro — Programa de 
Jdneson Carneiro de Azevedo. 

14 Linguagem de maquina no DGT-100 — 
Artigo de Newton Duarte Braga Junior. 

18 Conversio - Fator Z no HP-85. 

20 Mais operacoes kSgicas: NAND e XOR 
- Artigo de Orson Voerckel Galvao 
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sobre os monitores do TD-200 e do 
Cobra-300. 

25 Livros — "LCP - Lbgica de Construc5o 
de Programas: Um M6todo de Progra- 
macSo Estruturada" de Jean-Domini- 
que Warnier. 

26 Winchester, a evolucio do$ discos mag- 
neticosrtgtdos- Artigo de UlrichKuhn. 

30 Microdigital consolida-se na faixa dos 
pessoais — Entrevista com o Diretor da 
Microdigital, Tomas Kovarl. 

34 II Feira Internacional de Informdtica — 
Conclusa"o a cobertura da II Feira In- 
ternacional de Informdtica com a pu- 
blicacSo de alguns lancamentos na area 
de discos magndticQS e Impressoras. 

38 Integraca'o Numdrica - Dois programas 
de Hern^n Campero L6pez, um em 
FORTRAN e outro em BASIC, para 
calculo de integrais atrav6s do Mdtodo 
Trapezoidal. 

42 Organ izac3o da membria da, TI-59 — 
Artigo de Baker Jefferson Mass. 

50 LISP, a linguagem inteligente — Artigo 
de Marisa da Motta e Sandra Mary He 
bihara. 

56 O micro na pecuaria bovina — Artigo 
de Alvaro Luiz Marques Magalhaes so- 
bre a implantacao de microcomputado- 
res na agropecuaria. 

62 Pesquisa e Industrie mais prbximas de- 
pots do Congresso - ContinuacSo da 
cobertura da II Feira Internacional de 
Informdtica, incluindo a mostra das 
Universidades. 

64 Pesquisa e desenvoh/imento, aMm do 
eixo Rio/Sao Paulo — Reportagem so- 
bre a Feira Brasileira de Negbcios — Fe- 
bran, realizada em setembro de 1982, 
em Sa"o Paulo. 

68 Curso de Programaclo Sintdtica para a 
HP-41C/CV - Final - Curso de Luiz 
Antonio Pereira. 

76 monitor SOM sem segredos, no TD- 
200 a Cobra-300 - Artigo de Nilton do 
Valle Oliveira 

78 Clappy : a nova roalidade da Clap — Re- 
portagem com a loja Clappy, RJ. 




Numero 16, Janeiro 1983 

12 Duas verifies para o Jogo da Forca — 
Dols programas, um de Carlos Henri- 
que Klein para o TK82-C e outro, de 
Nelson Luis de Carvalho Freire, para a 
HP-41C/CV. 

15 Equipamentos — Fenix II. 

1 6 Conhecendo uma UCP, a 8080 da Intel 
— Artigo de Orson Voerckel Galvao. 

20 Descubra a senha — Programa de Luiz 
Eduardo M. C. Sutter e Fldvio Henri- 
que Costa Nogueira, que implementa o 
famoso jogo Master Mind, para micros 
compatfveis com o TRS-80 Model I. 

24 Alguns Macetes de Programacao — Ar- 
tigo de Claudio Nasajon. 

28 Ei, eu ja sei programar! — Programas de 
Alexandre Sabbatini, de nove anos de 
idade. 



30 Corra... que o micro controla - Uma 
nova versao do programa "AplicacSo 
do Computador em Ana'lise de Atle- 
tas", publicado em MICRO SISTEMAS 
numeros 3 e 4, de Arnaldo M. Mefano. 

34 MICRO MERCADO - Um quadra dos 
microcomputadores fabricados e co- 
mercializados no Brasil. 

42 Jogo do 21 — Programa de Jackson 
Tong desenvolvido num micro da LA- 
BO, em linguagem BASIC. 

44 De calculadora a relogio digital — Um 
programa de Carmine Montouri para a 
HP-41C. 

45 Livros — "A Sociedade da Informacao 
como Sociedade Pbs-lndustrial" de 
Yoneji Masuda. 

46 Uma avaliacio da micros nacionais — 
Artigo de Cartyle Maoddo Junior e 
Edelvicio Souza Junior sobre os mi- 
cros D-8000, CP-500, DGT-100. Micro- 
engenho e Poly 101SS, analisados e 
comparados, em termos de processa 
mento, com alguns dos mais famosos 
equipamentos estrangeiros. 

50 Rapidez e emocao na Fbrmula 1 — Pro- 
grama de Joneson Carneiro de Azevedo. 

52 Transforme seu DGT-100 em um ins- 
trumento musical — Artigo e programa 
de Carlyle Mac£do Junior e Edelvicio 
Souza Junior para obter notas musicais. 
no DGT-100 em uma ampla faixa de 
escalas, utilizando um mi'nimo de soft- 
ware. 

58 Jogo da Velha - Programa de Jacyr 
Vianna de Quadras Junior para o 
TK82-C. 

60 Venca o genio no DGT-100 - Um di- 
vertido jogo que Simula o brinquedo 
Genius inclusive com efeitos sonoros, 
cedido pela Digitus. 

62 Uma questao de afinkJades — Programa 
de Bruno Barasch, feito para a HP-41C/ 
CV, que considera a data de nascimen- 
to de duas pessoas para determinar o 
grau de afinidade existente entre elas. 

63 Comande um ataque ae>eo — Programa 
de Carmine Montouri para a HP-41C 

64 Jogue com efeitos aleat6rios — Artigo 
de Luiz Eduardo M. C. Sutter que apre- 
senta alguns modelos e macetes de pro- 
gramacao relacionados com a geracSo 
de eventos aleatOrios 

67 Acerte o afvo no D-8000 - Programa 
de Ivo D'Aquino Neto. 

70 Aroldo, o tecnbfilo — Conto de Guido 
Heleno. 

72 Jogos em computador, um assunto 
muito sdrio — Reportagem sobre a fa- 
bricacao e comercializacao de jogos no 
Brasil, incluindo uma pequena lista dos 
principais jogos disponi'veis no merca- 
do brasileira. 

78 OPT Soft & Hard: vendendo solucbes 
— Reportagens com a loja OPT Soft & 
Hard.SP. 




Numero 17, fevereiro 1983 

10 O micro no ensino medico: a experMn- 
cia brasileira — Artigo de Renato En- 



drizzi Sabbatini sobre uma experifincia 
feita em Ribeirao Preto com o uso de 
microcomputadores no ensino me'dico. 

14 Uma aplicacio original — Reportagem 
sobre o uso de microcomputador na 
Avicultura Casa Afonso, no bairro de 
Perdizes, em S5o Paulo. 

16 Execucao das instrucoes no processa- 
dor — Artigo de Orson Voerckel Gal- 
vao. 

20 A funcio USR(X) no D-8000 - Ar- 
tigo e programa de Ivo D'Aquino Neto. 

23 O micro aliado a criacio — Reportagem 
sobre o emprego do microcomputador 
na agenciade publicidade SSC & Lintas. 

26 Z80A e ZX81, uma poderosa combina- 
580 — Artigo de Milton Cabrerizo, 
apresentando um detalhamento da 
UCP Z80A, a partir de sua utilizaca"o 
no micro ingles ZX81 . 

32 Uma profissao diferente: cabeleireiro 
cibernetico — Reportagem sobre o uso 
de um Sistema 700 no SalSo Hairsty- 
ling.em Sao Paulo. 

34 Livros - "Understanding Your ZX81 
ROM" de Ian Logan. 

35 O computador... entre queijos e vi- 
nhos — Reportagem sobre o emprego 
de um D-8002, da Dismac, na Eurico 
ComeVcio de Secos e Molhados, em S3o 
Paulo. 

36 Guerra Espacial — Programa de Jone- 
son Carneiro de Azevedo para os com- 
patfveis com o TRS-80 Modelos I e III. 

38 Como adaptar um joystick ao DGT- 
100 — Artigo de Newton Duarte Braga 
Junior. 

40 Modems — Artigo de FI4vio Arthur Ti- 
bau sobre os tipos, a utilidade e o fun- 
cionamento dos modems. 

46 Ordenador affab4tico — Programa de 
Renato Degiovani para o NE-Z8000. 

50 Sistemas para diagnbsticos mrfdicos — 
Reportagem sobre desenvolvimento 
de hardware e software pelos engenhei- 
ros da Divisa"o de lnforma"tica do Insti- 
tute do Coracao, em Sao Paulo. 

52 Macrofotografia na HP-41C - Progra- 
ma de Marcio Neumann que revela qual 
a melhor abertura do diafragma em ma- 
crofotografias. 

54 Micro antra para clube dos dez mais — 
Reportagem sobre a utilizacao de um 
microcomputador no Video Clube Na- 
cional, no Rio de Janeiro. 

56 O computador no ensino de Inglfts — 
Reportagem sobre o emprego do micro 
no Sistema Cenpro de Ensino de Lfn- 
guas. em S5o Paulo. 

58 Os brinquedos que ensinam compute- 
c3o — Reportagem sobre jogos manuais 
brasileiros que tftm por tema o compu- 
tador. 

60 Resta 1, desafio na HP-41C - Progra 
ma de Carlos Acyr Pinto da Luz. 

62 O micro em um escritbrio de Atuaria — 
Reportagem sobre o emprego de um 
S-700 em um escritbrio de Atudria, em 
Sao Paulo. 

64 AplicacSo em doses homepaticas — Re- 
portagem sobre a implantacSo de um 
microcomputador em um consultbrio 
homeopatico. 

66 Curso de Assembler - I — Curso de 
Amaury Moraes Jr. 

70 AIM-65, para pesquisa e desenvolvi- 
mento — Reportagem sobre a aplica- 
c5o dos micros voltados para a area de 
pesquisa. 

72 Bacilus Terminates Especimtfn — Conto 
de Luis Carlos Silva Eiras. 

74 Calcule o tempo de retomo de seu in 
vestimento — Programa de Fausto Ari- 
nos de Almeida Barbuto para o TK82- 
CeNE-Z8000. 

78 Digit-Hall, um novo espaco para os mi- 
cros — Reportagem sobre o Digit -Hall 
da Casa Garson. 
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Numero 18, marqo 1983 

10 Professor JC: provas de multiple esco- 
Iha no micro — Programs de Joneson 
Carneiro de Azevedo. 

12 A revolucio das letras — Artigo de Re 
nato Pompeu sobre o impacto dos mi- 
croprocessadores na producao literaria. 

14 Sinais de est ado e ciclos de maquina — 
Artigo de Orson Voerckel Galvao so- 
bre o microprocessador da Intel 8080. 

18 4 Kb de RAM no TK82-C - Artigo de 
Glaucus Brelaz sobre o projeto de uma 
expansa"o de 2K para o TK, que permi- 
te o uso das expansoes de 16 e de 64 
Kb oferecidas pelos fabricantes. 

20 O computador como ferramenta de en 
lino — Artigo sobre as principals deli- 
berates do primeiro encontro que dis- 
cutiu a introducSo do computador no 
ensino brasileiro em Salvador, Bahia, 
relatadas por um dos participates, 
Fernando Jos6 de Almeida. 

26 Livros — "Que 6 isso computador?" do 
Sindicato dos Jornalistas Profissionais 
de Sao Paulo. 

28 Independencia tecnolbgica e colonialis- 
mo — Artigo de Joa"o Antonio Zuffo 
sobre o esforco brasileiro para atingir 
a auto-suficiencia tecnolbgica. 

37 Acerte as contas com o micro — Pro- 
grama de Mauncio Costa Reis para o 
TK82-C. 

38 Metodo Simplex na TI-59 — Progra- 
made Norman Gillmore. 

42 O computador na linguagem infantil — 
Reportagem sobre o que as criancas 
pensam a respeito do computador. 

44 Comandando o relogio e o gravador no 
CP-500 — Programa de Mauncio Ba- 
duy para controlar, por software, o re- 
Ibgio e o motor do cassete do CP-500, 
usando os comandos do BASIC Disco. 

52 Equipamentos — JP-01 . 

54 Rumo a Educacio informatizada — Ar- 
tigo de Suelena Porto Klein sobre as 
experiencias feitas com micros, na 
UFRGS, atraves do seu Centro de Pro- 
cessamento de Dados. 

56 Aprenda Ingles no computador — Pro- 
grama de Renato Degiovani para o NE- 
Z8000 com 16 Kb de RAM. 

58 TK85: novo pessoal no mercado. 

60 Cursos: analise de um fen&meno — Re- 
portagem sobre os cursos livres de PD 
existentes no Brasil. 

70 Jogo da Forca Musical — Programa de 
Carlyle Macedo Junior e Edelvi'cio Sou- 
za Junior para o DGT-100. 

74 Informatica e Direito — Artigo de Ver 
tino Machado sobre as aplicacOes do 
computador pessoal na atividade jun- 
dica. 

78 Curto de Assembler — II. 

82 Pequenos prog ram as para o TK e NE — 
Programas de Paulo Cesar F. S. Cunha. 
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Controle de investimentos em Letras 
de Cambio — Programa de Jose" Rai- 
mundo S. Sousa para a HP-97. 
CompuShop investe em informacao — 
Reportagem sobre a loja CompuShop, 
SP. 
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Numero 19, abril 1983 

10 As linguagens de prog ram acao — Arti- 
go sobre as linguagens de programacSo: 
tipos, caracten'sticas, vantagens. des- 
vantagens, aplicacOes; e um resumo de 
algumas pouco conhecidas no Brasil. 

20 O est ado E3 e as interrupcdes — Arti- 
go de Orson Voerckel Galvao. 

24 Os programas tradutores — Artigo de 
Paulo Roberto Campos Ducap sobre os 
montadores, compiladores e interpreta- 
dores. 

28 Assembler — A primeira linguagem - 
Artigo de Amaury Moraes Jr. 

30 BASIC - Trfts faces da mesma lingua- 
gem - I — Artigo de Orson Voerckel 
Galvao comparando as instrucoes BA- 
SIC do TRS-80 modelo III, Apple II e 
Sinclair ZX81 . 

34 Pascal — No ensino ou na ciencia, um 
poderoso instrumento — Artigo de 
Mauncio Costa Reis. 

36 COBOL - A primeira em aplicacoes 
comerciais — Artigo de Jose" Luiz do 
Nascimento Silva. 

44 Livros — 'The Giant Book of Compu- 
ter Software" of TAB Books Inc. 

46 FORTRAN - F6rmulas matematicas 
em programas — Artigo de Orson Voer- 
ckel GalvSo. 

50 MUMPS - Trabalhando complexos de 
dados - Artigo de Ivan Costa. 

54 LOGO - A matemltica da tartaruga - 
Artigo de Dulce Madalena Autran von 
Pfuhl. 

62 LTD — Um mecanismo de entrada e 
critics de dados — Artigo de Nilton do 
Valle Oliveira 

66 Schumec fax mudancas no seu M-85. 

68 Microfestival 83 — Reportagem sobre o 
Microfestival 83, Primeiro Encontro 
Brasileiro de Microinforma"tica. 

72 Cursode Assembler - III. 

80 Compiladores e linguagens — Artigo de 
Michael Stanton. 

86 Computeriand, uma experience que 
deu certo — Reportagem sobre a loja 
Computeriand, SP. 
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Numero 20, maio 1983 

10 ProgramacSo Estruturada — Artigo de 
Monica Froes Peixoto sobre a tdcnica 
que toma mais simples e fdcil a tarefa 
de programar e dicas para se fazer um 
programa em BASIC Estruturado. 

14 BASIC: trfis faces da mesma linguagem 

— II — ContinuacSo do artigo de Orson 
Voerckel Galvao. 

20 Conversao — Calculo de vigas conti- 
nuas na HP-41CV. 

26 O som nosso de cada micro — Artigo e 
programa de Rudolfo Horner Jr. sobre 
um me"todo simples e prdtico de pro- 
ducao de notas musicais para os com- 
pat iveis com o Apple 1 1 . 

30 Drama por computador — Entrevista 
com o escritor Doc Comparato. 

34 Classif icando dados na TI-59 — Progra- 
ma de Edmir Ximenes. 

36 Livros - "Eletronica Digital" de Her- 
bet Taub e Donald Shilling. 

38 Aplicacao de estatfstica no microcom 
putador — Programa de Francisco Bo- 
ratto para o HP-85. 

42 As flexfveis memdrias EPROM - Arti- 
go de Vera Vaitekunas sobre as carac- 
ten'sticas e os recursos das membrias 
RAM, ROM, PROM e EPROM e as tec- 
nicas de gravacao destas ultimas. 

48 Forma, funpio e economia — Artigo de 
Renato Degiovani sobre a importancia 
do Design no projeto de microcompu- 
tadores dom^sticos e pessoais. 

56 A importancia do Design na Informati- 
ca — Artigo de Valdir Soares. 

62 TK e NE no controle de cargas eletri 
cas — Artigo de Jerre Palmeira Sales 

64 Equipamentos- CP-200 

66 Calculo de uma poligonal — Artigo e 
programa de Roberto B. Fonseca sobre 
uma aplicaca"o para topografia, em BA- 
sic, utilizando uma calculadora Casio 
FX-702P. 

70 Renumere seus programas em BA- 
SIC - Artigo de Jose' Ribeiro Pena Ne- 
to sobre a rotina RENUM. ideal para 
quern dispoe de micros da famflia 
TRS-80 e precisa renumerar programas 
em BASIC. 

84 Exames meciicos micro-programdveis — 
Artigo e programa de Paulo Roberto 
Yamana sobre os dois exemplos de co- 
mo o micro pode ser utilizado em cli- 
nicas metJicas para calculos de exames 
que envolvam formulas matemdticas. 

88 Curso de Assembler - IV. 

94 Ipanema Micro: al6m das expectativas 

— Reportagem sobre a loja Ipanema 
Micro, RJ. 
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Numero21,junho 1983 

10 Controle seu orcamento no TK e NE — 
Programs de Renato Degiovani. 

14 O DMA: acesso direto a memoria — Ar- 
tigo de Orson Voerckel Galvao. 

18 O micro em contatos didaticos com o 
1? e 2? gratis — Reportagem sobre a 
implantagSo de computadores no ensi- 
no de dois colegios paullstas. 

24 Calculo PERT em BASIC - Artigo e 
programa de Ademir Castilho Piqueira 
e Willian Noriaki Uemara sobre os cil- 
culos de redes PERT em microcompu- 
tadores. 

30 HP-41C e BASIC: uma comparacao - 
Artigo de Hilton Felfcio dos Santos. 

34 Desenhe e brinque com o micro - Arti- 
go de Andrew Fairbain sobre a arte de 
desenhar figuras geometricas no micro. 

42 Viagem ao fundo do DGT-100 - Arti- 
go de Newton Duarte Braga Junior. 

44 Programe sua dieta (sem sacrif fcios) — 
Programa de Pedro Luiz Ribeiro para 
o Apple II. 

50 Equipamentos — Microengenho. 

52 Uma experiencia em fazenda de gado 
(2) - Artigo de Willem A. Dutilh sobre 
os resultados obtidos com a utilizacSo 
do micro no controle dos negbcios de 
sua fazenda de gado. 

58 CP-300, novo membra da famflia Pro- 
I6gica. 

60 TV em monitor: como adaptar — Arti- 
go de David Marco Risnik sobre como 
obter 6timos resultados na adaptacao 
de uma TV comum a um monitor de 
video. 

66 O. K. micro, vooi venceu! - Artigo de 
Rui Cesar Torres sobre o problema da 
ressequenciacSo de programas em lin- 
guagem de maquina no TK82-C. 

68 Datilografando no micro - Programa 
de Ivo D 'Aquino Neto para o D-8001 . 

72 Formato de gravacao em cassete — Ar- 
tigo de Daniel Augusto Martins sobre 
gravacoes em cassete nos compatfveis 
com o TRS-80. 

78 Composicao de precos unitarios — Ar- 
tigo e programa de Jos£ Eduardo Maluf 
de Carvalho para o TK82-C. 

84 Livros — "Dicionario de Telecomunica- 
cfles" de Joao Vict6rio Pareto Neto. 

85 Jogue dados no seu NE-Z8000 - Arti- 
go e programa de Newton Duarte Bra- 
ga Junior. 

86 Curso de Assembler - V. 

91 Metalurgia: Calculo de Carga de Lami 
nacSo a Frio na HP-25 — Artigo de 
Eduardo Pocas Leitao. 

92 Informatica em Recife: V Congresso — 
Reportagem sobre o V Congresso Re- 
gional de Informatica, realizado entre 
8 e 15 de maio no Centro de Conven- 
cdes de Pernambuco. 

94 Microshop: pronta entrega e orientacao 
— Reportagem sobre a loja Microshop, 
SP. 
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Numero 22,julho 1983 

10 Delimitadores de campos nume>icos — 
Programas de Roberto Quito de Sant' 
Anna, um para o CP-500 e outro para 
o S-700, que facilitam a entrada de 
campos numdricos na tela. 

12 A animacao de figuras com alta resolu- 
cao — Artigo de Carlos Alberto Jahara 
sobre o recurso de alta resolucSo graTi- 
ca nos compatfveis com o Apple. 

14 A implementacio das membrias — Ar- 
tigo de Orson Voerckel Galvao. 

22 Aeroporto 83 — Programa de Renato 
Degiovani para o TK82-C. 

26 Microprocessadores de 16 bits — Artigo 
de Antonio Rafael Dias Teixeira. 

32 Como automatizar sua programacao — 
Artigo de Jose" Rafael Sommerfeld. 

34 Equipamentos - Q 1-800 

36 Escondendo o jogo no TK82-C - Arti- 
go de Ronaldo de Almeida Santos so- 
bre as te"cnicas e os truques para prote- 
ger programas. 

38 No mundo das impressoras — Reporta- 
gem sobre as caracterfsticas e aplica- 
cSes das impressoras e os problemas 
e pianos da indu stria 

46 Controle de estoque no PC-1500 — Ar- 
tigo de Newton Braga Junior. 

48 Livros — "Crianca tambe'm faz progra- 
mas" de Jose AmeVico M. da Silva. 

49 No ritmo do HP-75 — Programa de 
Paulo Salles MourSb. 

50 Efeito sonoro no TK e NE — Artigo 
de OctSvIo Nogueira Neto. 

52 Tabela Price em BASIC — Programa de 
Ivan Falcao de Domenico para o 
D-8002. 

54 Compilador FORTH para Z80 - Ar- 
tigo de Antonio Costa para os compati- 
veis com o TRS-80. 

60 Eletronica na HP-41 - Programa de Pe- 
dro Ricardo Drummond para todos 
aqueles que necessitam fazer, com fre- 
quencia, as operacfles matematicas 
obrigatbrias da eletronica. 

64 Um programa para radioamadores — 
Programa de Arnaldo Mefano. 

66 Pequenas memdrias, grandes economias 
— Artigo de Renato Degiovani sobre 
como utilizar recursos de programacSo 
capazes de estlcar memdrias aparente- 
mente pequenas, em micros TK82-C, 
NE-Z8000eCP-200. 

72 Torre de Han6i: uma solucio em BA- 
SIC — Artigo de Joao Henrique A. 
Franco que mostra o princfplo da so 
luca"o recursiva em programas BASIC, 
utilizando como exemplo o problema 
da Torre de Hanbi. 

74 Curso de Assembler — VI. 

78 Composicao de precos unitarios - II — 
Continuacao do Programa de Jose" 
Eduardo Maluf de Carvalho. 

82 NCC'83: a vez dos perifericos - Re- 
portagem sobre os perifericos langados 
na National Computer Conference — 



Oaffis- 



MICROS, 

VIDEOS, GAMES & CIA. 

Computadores: 

Polymax, Unitron, Prol6gica, 

Micro Digital, Sysdata. 



• OFERTA ESPECIAL * 

"MAXXI" 

Videos: Philco e Sharp 

Televisores Sanyo 



Video Games: Dynacon, 
Atari. 

OFERTA: Cartuchos para Atari 
a prego de custo. 
Suprimentosi Fitas, Disquetes, 
Formularios. 



* Super Oferta • 

Disquete Memorex 5 1/4 -Cr$ 5.000.00 
CURSOS: Basic I. Basic II 

InscrigOes Abertas 



Rua Estados Unidos, 2141 

Tel. 852-8290 / 257-3852 / 231 -1 1 73 




SEJA NOSSO 

COLABORADOR! 

r Escreva um bom artigo sobre: 

* Macetes de programaQUo 
' Dicas sobre seu equipamento 
" Sistema operacional, etc. 

E envie-o para nossa redacao. 
Os artigos aprovados serao 
remunerados e os outros, 
devolvidos. Mas nao se 
esqueca de mandar seu nome 
completo, enderepo e telefone. 

VENHA FAZER 
NOTiCIA CONOSCO! 



Micro 



RIO: Rua Visconde Silva, 25 - Botafogo, 

RJ. CEP 22281 . tel.: (021 ) 286-1797 e 

246-3839 

SP: Al. Gabriel Monteiro da Silva, 1229, 

Jd. Paulistano-SP.CEP01441.tel.:(011) 

280^144 
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NCC dos Estados Unidos. de 16 a 19 
de maio no condado de Anaheim, Los 
Angeles. 
86 Kristian: umi pequena grande loja — 
Reportagem sobre a loja Kristian Ele- 
tronica Ltda.. RJ. 




Numero 23, agosto 1983 

10 Urn monitor Assembler para o TK82-C 
— Programa de Jose' Carlos Niza. 

12 Vfdeo-lmpressora, sem escaias — Pro- 
grama de Henl Sauaia para os compat i- 
veis com o TRS-80, com uma pequena 
rotina para evitar "impressffo" dos es 
pacos em branco. 

16 Conversio — Professor Corujinha, no 
TK82-C. 




CURSOS DE 
PROCESSAMENTO DE DADOS 



FORMACAO DE PROGRAMADORES 
(COMPLETO) 

Duracao: 8 meses 

Horario: 2* a 5 a feira de 19:00 as 22:00 hs 

MICROCOMPUTADORES E A 
LINGUAGEM BASIC 

Duracao: 3 sem an as 

Horario: 2» a 5» feira de 19:00 as 22.00 hs 

Turmas de IS alunos 



AMPLA UTILIZAQAO DO 

IBM-4341 E DO LABORATORIO 

DE MICROCOMPUTADORES 



Visite o CPD-ORT — Diariamente apos 
13:00 hs - R. Dona Mariana, 213-Botafogo 
Rio de Janeiro - Tels.: 226-3192 "246-9423 



20 A famflia 6809 da Motorola — Artigo 
de Carlos Eduardo Tarrlsse da Fontou- 
ra sobre a utilizacao do microprocessa- 
dor 6809 e dos integrados 6883, 6847 
• 6821. 

28 TraducSo SimultSnoa — Programa de 
Ivo D'Aquino Neto para o O-8000. 

30 Masterword: descubra a palavra — Pro- 
grama de Rubens Hungria de Lara para 
os compat iveis com o Apple. 

34 Anime-se... e faca bons jogos em BA- 
SIC — Artigo de Renato Sabbatini so- 
bre como desenvolver em BASIC jogos 
surpreendentemente rapidos e com- 
plexes. 

38 Otimtzacao de mem6ria em Assembler 
- Artigo de Elizabeth Simes Chalne. 

42 Equipamentos - CD-6809. 

44 O mundo fantastico dos Adventures — 
Artigo de Fabio Cavalcanti da Cunha. 

46 Equipamentos - COLOR 64. 

48 Aventuras na selva — Programa de Re- 
nato Degiovani para o TK82-C, NE- 
Z8000 e CP-200. 

54 Livros — "BASIC para micros pessoais" 
de Jorge da Cunha Pereira Filho. 

58 FORTH - Artigo de Antonio Costa so- 
bre a linguagem FORTH. 

56 A Loteria na HP-41C — Programa de 
Ricardo Oliveira Ramos. 

64 A implementacao da cor - Artigo de 
Thelma Vanderllnde sobre as dificulda- 
des para se Implementar recursos gra"- 
ficos coloridos em micros pessoais. 

68 Conhecendo melhor as strings — Artigo 
de Roberto Quito de Sant'Anna. 

70 O software no Brasil — Reportagem so- 
bre o seminario promovido pela SEI 
e PUC-RJ. 

74 Organize melhor seus programas em 
fita — Programa de Newton Duarte 
Braga Jr. 

80 Curso de Assembler - VII. 

86 Orientacao e cartao especial — Repor- 
tagem sobre o Centra Experimental de 
Informdtlca — CEI, da Servimec, SP. 




Numero 24, setembro 1983 

6 Ponha musica no seu TK - Programa 
de Cleuton de Melo Junior. 

12 Musica, maestro! - Programa de Ro- 
berto Quito de Sant'Anna. A cancSo 
Ain't she sweet exemplifica sub-rotinas 
em linguagem de maquina que permi- 
tem aos programas rodarem tanto na 
versSo disco como cassete. 

14 Rastreando variaveis — Artigo de Ru- 
dolf Horner Junior que mostra como 



listar as variaveis de programas em 
BASIC Applesoft. 
16 Dfgitos Verificadores — Artigo de Eral- 
do Souza Rocha que analisa os me'to- 
dos para o calculo de dfgitos verifica- 
dores, apresentando o algoritmo do 
modulo 11. 
18 Livros — Computes, Grilo! Computa- 
dor para todas as idades, de Rogerio 
Costa Pereira. 

24 Do, Re... Micro - Programa de Thelma 
V. T. da Fontoura que mostra os re- 
cursos musicais do TRS-80 Color Com- 
puter e sistemas compat fveis. 

28 Abrindo Espaco na Tela — Artigo de 
Renato Degiovani que ensina como 
aprovehar as duas ultimas linhas de im- 
pressSb na tela, em micros tipo Sin- 
clair. 

30 O som (mais harmdnico) de seu Apple 
— Programa de Evandro Mascarennas 
de Oliveira que possibilita variar a fre- 
quAncia, o intervalo e a duracSo de 
notas musicais no micro. 

32 Conversio — O jogo Resta 1, no 
PC-1211. 

34 Jazz Cibernetico — Programa de Mar- 
cus Brunette para a decodiflcacSo de 
acordes. 

38 Equipamentos - EGO. 

40 Simule um piano no seu teclado — Pro- 
grama de Newton Braga Junior para 
micros da linha TRS-80 Modelos I e 
III. 

42 Criptografia, uma arma contra os pi- 
ratas? — I — Artigo de Candido Fon- 
seca da Silva sobre os sistemas cripto- 
graficos da era do computador. 

46 Acerte na loteca com o D-8000 — Pro- 
grama de Ivo D'Aquino Neto. 

48 Operacoes complexes em BASIC - 
Programa de VakJir Aguilera que per- 
mite operar com numeros complexos. 

52 O micro da a largada! — Programa de 
Renato Degiovani com o jogo Fbrmula 
1. 

56 O erro de truncamento em BASIC — 
Artigo de Akeo Tanabe que explica as 
diferencas entre a aritmetica decimal e 
a aritmetica bindria de ponto flutuante 
do BASIC. 

58 AplicecSes em Sanaa men to Basico — 
Programas de Hilton Felfcio dos San- 
tos (Cdlculo de diques de uma lagoa 
estabilizadora de esgotos, para a cal- 
culadora HP-41C) e Antonio Carlos 
Franco Zuccolo (Dimensionemento de 
trechos de redes de distribuigSo de 
a"gua, para o micro Sharp PC-1 21 1 ). 

64 Parabens no die certo — Programa de 
Luiz Gonzage de Alvarenga para con- 
trole de datas de aniversarios no CP-500. 

66 Flip: capture o adversario — Programa 
de Honorio Lisboa Neto. Um jogo pa- 
ra micros da linha Sinclair. 

68 Equipamentos — O JR, da Sysdata. 

70 O ststema de codigo de barras — Arti- 
go de Alwln Wilhelm E Ibern. 

74 Minhes piores partidas de xadrez — 
Programa de L. C. Lobato que arma- 
zena essas partidas no proprlo pro- 
grama, sob a forma de DATA 

78 MICRO SISTEMAS, Ano II - Indice 
da revista, abrangendo os numeros 13 a 
24. 

84 Dicas — De programacSd e operacSo de 
micros. 

86 Curso de Assembler- VIII. 

92 Data provavel de parto — Programa de 
Adauto Barbosa, de aplicacffo medica 
no CP-500. 

94 Computche, ume loja triiegal! - Re- 
portagem sobre a loja gaucha Com- 
putche. ■ 
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ANO 




Ha 2 anos contribuindo com 
a informatica brasileira! 

Leia e assine: 



/Micro 




A PRIMEIRA REVISTA BRASILEIRA DE MICROCOMPUTADORES 

Publicacao da ATI Editora 
que agora Ihe oferece tambem 



B! 



Informatica & 
Admlnistracao 



Se voce nao quiser cortar sua revista, tire uma xerox do cupom abaixo) 



nome 


empresa 




profissao cargo 




endereco para remessa 




cidade cep 


estado 




. . . cr$ 7.000,00 


assinatura de M S + Informatica & Admin istracao .... 


cr$ 12.500,00 




Junte a estes dados, 
ATI Editora Ltda. 
Al. Gabriel Monteir 
Sao Paulo - SP - Ce( 

(seu recibo sera env 


cheque nominal a : 

odaSilva, 1229 
> 01441 

ado pelo correio) 


















Coloque o display de cabeca para 
baixo. Faca o disquete to car uma 
musica de Roberto Carlos para 
avisar que o programa ja esta" 
carregado. Armazene quatro bytes 
em apenas um, co/ocando 64 Kb 
em dpenas 16 Kb de RAM. 
Invente um Interpretador unico 
para as linguagens BASIC, 
COBOL, Pascal e FORTH. 
Nao e" preciso chegar a extremos, 
mas se voce tern pequenas rotinas 
e programas utilitarios realmente 
uteis tomando poeira em seus 
disquetes ou fitas cassetes, 
anted pe-se aos piratas e trate 
de divulga'-los. Envie-os hoje 
mesmo para: 
REDAQAO DA MICRO 
S/STEMAS - SEQAO DICAS 
Rua Visconde Silva, 25 
BOTAFOGO- RIO DE 
JANEIRO - RJ 
CEP 22281 

Desta forma sua descoberta 
pod era ser util para muitos e 
muitos, ao inves de 
desmagnetizar-se com o tempo em 
suas fitas e disquetes... 



CP-500 



Personalize o sistema operational 

Ai vlo tres dicas para personahzar o Sistema Opera- 
cional do DOS 500/TRS DOS, aumentando, ao mesmo 
tempo, a sua funcionahdade : 

1? — Para nao ter que consul tar sempre o manual para 
decifrar as erugmiticas mensagens de erro do DOS 
500/TRS DOS, modifique o sistema operacional para que 
mostre a mensagem de erro completa. Para isto basta 
digitar, em DOS 500 Ativo/TRS DOS READY: 
PATCH *4(ADD=4E28,FIND= 20,CHG=18)<ENTER > 
2? - Se voce nab quer mats ser obngado a fornecer 
data/hora ao dar o RESET, digite : 
PATCH *0 (ADD= 4EA9,FIND=CA,CHG=C3)< ENTER> 
3? - Para que o diret6no do disco seja mostrado auto- 
maticamente a cada RESET, sob DOS 500 Ativo/TRS 
DOS READY, digite: 
AUTO DIR< ENTER > 

manual do DOS 500 ensina (no ultimo paragrafo da 
p^gina 48) como reverter o sistema a condi^ab original, 
caso o usuano nao deseje mais as modifica^Ses realizadas 
pelos PATCHES. 



Roberto Quito de Sant'Anna - RJ 



CP-500 



Arredondamento de valores decimals 

A representacSo interna de valores numencos no 
computador leva, por vezes, a erros de aproximacao em 
algumas operacbes. Por exemplo. o resultado de PRINT 
(30.30 - 30) sera .299999, ao inves de .3, como sena 
esperado. Como na maiona das aphca^oes com numeros 
decimals nao sab necessanas mais do que duas casas apos 
o ponto, uma maneira simples de forcar o cilculo de 
numeros de precisao dupla com duas casas decimals e, ao 
mesmo tempo, arredondar o resultado para o cente'simo 
mais proximo, e* converter um valor qualquer X da 
seguinte maneira: 
X # = INT (X # *100 # +0.5 # )/100 # 

O mecanismo funciona assim: a multiplicac^o por 
100 # desloca o ponto decimal duas casas para a direi- 
ta; a adicSb de 0.5 # e a aplicacab de INT arredondam o 
resultado e elirrunam os digitos nao desejados; e a divisao 
por 100 # retorna o ponto decimal a posicSo original. 

Este me"todo tern sobre o PRINT USING a grande 
vantagem de arredondar o pr6pno valor armazenado, e 
nao apenas o valor impresso. Pode-se, ainda, obter qual- 
quer numero de casas decimals (respeitando-se, 6 claro, o 
niimero de digitos com que o valor pode ser representa- 
do) simplesmente substituindo-se a constante 100 # da 
expressao pelo valor ION, onde N 6 o numero desejado 
de casas decimals. 

No caso de se usar valores de precisao simples, basta 
supnmir todos os simbolos # da f6rmula, ou substituf- 
los por !, nao esquecendo, pore'm, de que os valores de 
precisao simples sab impressos com apenas seis algans- 
mos, embora sete sejam armazenados. 

Roberto Quito de Sant'Anna— RJ 



TK82 

Bode a tela para 

16517 " 16 

ills S S *• 

as S " 

16527 B9 

16533 C5 

16534 06 IF 

I 6536 , 9^ 
16537 23 

l653 . B n 9B 

1653 2 ?! 
16540 71 



16541 
16542 



23 

10 F9 



16544 77 

16545 CI 

16546 CI 

16547 C9 



a esquerda 

LD HL, (16396) 

INC HL 

CALL 16532 
PU5H BC 

LD B,0 . 
ADD HL,BC 
pnp BC 

RET 

PUSH HL 
PUSH BC 

LD A,(HL) 
INC HL 
LD C,(HO 

LD (HL),C 
INC HL 
D3NZ 16637 
LD (HL),A 
POP BC 

POP HL 

RET 



RAND 



USR 1651* 



TK82C 

Rode a tela para baixo 



16514 


a ie 


54E 




32 bytes reservados 


16546 


2A 


0C 


40 


LD HL, (16396) 


16549 


01 


B6 


02 


LD BC,694 


16552 


09 






ADD HL,BC 


16553 


11 


82 


40 


LD DE, 16514 


16556 


01 


20 


00 


LD BC,32 


16559 


ED 


B0 




LDIR 


16561 


01 


D6 


02 


LD BC,726 


16564 


2A 


0C 


40 


LD HL, (16396) 


16567 


09 






ADD HL,BC 


16568 


54 






LD D,H 


16569 


5D 






LD E,L 


16570 


01 


B5 


02 


LD BC,693 


16573 


2A 


0C 


40 


LD HL, (16396) 


16576 


09 






ADD HL,BC 


16577 


ED 


B8 




LDDR 


16579 


21 


82 


40 


LD HL, 16514 


16582 


ED 


5B 


0C 40 


LD DE, (16396) 


16586 


13 






INC DE 


16587 


01 


20 


00 


LD BC,32 


16590 


ED 


B0 




LDIR 


16592 


C9 






RET 



RAND USR 16546 



Robson Gomes Vilela - PE 



TK82-C 



Rode a tela para cima 



16514 


a 16545 




16546 


2A 


0C 


40 


16549 


23 






16550 


11 


82 


40 


16553 


01 


20 


00 


16556 


ED 


B0 




16558 


2A 


0C 


40 


16561 


23 






16562 


21 


21 


00 


16565 


09 






16566 


ED 


5B 


0C 40 


16570 


13 






16571 


01 


B5 


02 


16574 


ED 


B0 




16576 


2A 


0C 


40 


16579 


23 






16580 


01 


B5 


02 


16583 


09 






16584 


EB 






16585 


21 


82 


40 


16588 


01 


20 


00 


16591 


ED 


B0 




16593 


C9 







RAND USR 16546 



32 bytes reservados 

LD HL, (16396) 

INC HL 

LD DE, 16514 

LD BC,32 

LDIR 

LD HL, (16396) 

INC HL 

LD BC,33 

ADD HL,BC 

LD DE, (16396) 

INC DE 

LD BC,693 

LDIR 

LD HL, (16396) 

INC HL 

LD BC,693 

ADD HL,BC 

EX DE,HL 

LD HL, 16514 

LD BC,32 

LDIR 

RET 



Robson Comes Vilela - PE 



TK82 

SIS i 2l 16 

is a » 

l 652B n ?B 

16529 f 

16530 7E 

16532 77 



a direita 



16533 
16534 



2B n 
10 F9 



ass i 

as i »* 

#& % » 

16645 Cy 
RAND USR 1661* 



LD HL, (16^ 

LD BC ,566b 
PUSH BC 
LD BC,31 
ADD HL,BC 

LD B.31 x 
LD C,(HD 

LD A,( HL) 
INC HL 
LD (HO.* 
DEC HL 
D3NZ 16629 
LD CHO.C 
POP BC 
PUSH BC 

L ° B '? rC 
ADD HL,BC 

POP bc 
03NZ 16621 

RET 



ono 


0111 0100 


0000 1100 1111 








^0000 MOO 








^MO 1000 
^ \ 0101 








1011 






>k »0111 


011QJ 






\ l nn 


I 






\ loooo 


1 




^00^ 


k \ #0001 


oiol 






^ \# 1000 


1101" 






\ \poio 


1011 






A ^DC 


1111 


11OT 







Curso de 
Assembler — VIII 



N 



esta licao daremos continuidade a descncab das ms- 
trucoes que compoem o grupo de carga de 16 bits: 



10 - Move registrador indexador IX para memoria 

Formato: LD (nn), IX 

Operacdo: Move o conteudo do registrador indexador IX de 
1 6 bits para a mem6na a partir da posicao indicada por nn. 



Codigo objeto: 



EXEMPLO: 



LD (nn),IX 



110 1110 1 


10 10 




^1 w 




^ n w 

— 1 — 1 — 1 — 1 — 1 — 1 — J 



Descricdo: O conteiido dos 8 bits de baixa ordem do regis- 
trador indexador IX e" carregado no endereco de memoria dado 
por nn e o conteiido dos 8 bits mais significativos do registra- 
dor indexador DC e" carregado na posicfo de memoria nn+1 . 



LD (30BAH),IX 



OOBAH)^ IX 

(30BBH)4 IX 



H 



Ciclos de mdquina: (M): 6 

States (T): 20(4,4,3,3,3,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o conteudo do registrador indexador IX 
e 4158H, apos a execucao da instrucao LD (4000H), IX, o en- 
dereco de memoria 4000H contera o byte 58H e o endereco 
seguinte 4001H contera o byte 41H. 

1 1 - Move registrador indexador IY para memoria 

Formato: LD (nn), IY 

Operacdo: Move o conteudo do registrador indexador IY 
de 1 6 bits para a mem6na a partir da posicao indicada por nn. 

Codigo objeto: 







LD (7F10H),IX 

-1 — r - 








L> 




' l ' ! 1 1 1 
110 1110 1 


10 10 


00010000 




1111111 




w 



>DD 



>22 



>10 



>7F 



LD (nn),IY 



1 1 1 

— I — I— 
1 

— I — h- 



H — h 



— I — i — i — r— 
1110 1 



10 

I I I I 
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EXENPLO: 



LD SP,IX 



LD (3COOH),IY 



SPi <- 



IX, 







~TT 












L-> 


i i I i 1 i i 
1111110 1 


10 10 


00000000 




11110 

I 1 1 1 . 




w 



>FD 



>22 

► 00 
>3C 



Descricdo: O conteudo dos 8 bits de baixa ordem do regis- 
trador indexador IY e carregado no endereco de mem6na dado 
por nneo conteudo dos 8 bits mais significativos do registra- 
tor indexador IY e" carregado na posicao de memona nn+1. 



LD (70F3H),IY 



(70F3H)^ IY 

(70F*H)<* IY 



H 



Ciclos de mdquina (M): 6 

States (T): 20(4,4,3,3,3,3) 

Flags afetadas: Nenhuma 

Um exemplo: se o conteudo do registrador indexador IY e" 
6000H, apos a execucao da instrucao LD (402DH), IY, o en- 
dereco 402DH de mem6na contera" o byte 00H, enquanto o 
endereco seguinte, 402EH, contera o byte 60H. 

1 2 - Move par de registradores HL para Stack Pointer 

Formato: LD SP.HL 

Operacdo: Move o conteudo do par de registradores HL pa- 
ra o registrador SP de 16 bits. 
Cddigo objeto: 



LD SP,HL 



— r— | 1 1 r— 1 r— 

111110 1 

1 1 _ 11)11 



>F9 



Descricdo: O conteudo do par de registradores HL de 16 
bits £ transfendo para o registrador STACK POINTER (SP) 

de 16 bits. 



LD SP,HL 



SP H* 



sp l * 



Ciclos de mdquina (M): 1 

States (T): 6 

Flags afetadas: Nenhuma 

Como exemplo, se o par de registradores HL conte'm 4400H, 
apos a instrucao LD SP.HL, o registrador SP tambem contera" o 
valor 4400H. 

13 - Move registrador indexador IX para STACK POINTER 

Formato: LD SPJX 

Operacdo: Move o conteudo do registrador indexador LX 
para o registrador SP de 1 6 bits. 

Codigo objeto: 

LD SP,IX 



1 — I - 1 — 1 — 1 — 1 — 

11011101 






11111001 




pt-9 



Descricdo: O conteudo do registrador indexador LX de 16 
bits 6 transfendo para o registrador STACK POINTER (SP) de 
16 bits. 



Ciclos de mdquina (M): 2 

States (T): 10(4,6) 

Flags afetadas: Nenhuma 

Veja o exemplo. Se o registrador LX conte'm o valor 
7FFFH, apos a instrucao LD SP4X o registrador SP tambem 
contera" o valor 7FFFH. 

14 - Move registrador indexador IY para STACK POINTER 

Formato: LD SP JY 

Operacdo: Move o conteudo do registrador indexador IY 
para o registrador SP de 16 bits. 

Cddigo objeto: 



LD SP,IY 

— i— i — i — i — i i i — 
11111101 



■4— K 



11111001 

I I ■ ■ ) I I 



>FD 
>F9 



Descricdo: O conteudo do registrador mdexador IY de 16 
bits e transfendo para o registrador STACK POINTER (SP) de 
16 bits. 



LD SP,IY 



SP H* 



sp l + 



IY. 



IY. 



Ciclos de mdquina (M): 2 

States (T): 10(4,6) 

Flags afetadas: Nenhuma 

Como exemplo, se o registrador IY contim o valor 9C01H, 
ap6s a instruca"o LD SPJY o registrador SP tambem contera" o 
valor 9C01H. 

1 5 — Move par de registradores para o STACK POINTER 

Formato: PUSH qq 

Operacdo: conteudo do par de registradores qq e" coloca- 
do na mem6na de trabalho do microprocessador, chamada 
STACK. 

Cddigo objeto: 

PUSH qq 



00 para qq 

01 para qq 

10 para qq 

11 para qq 

EXENPLO: 



1 


1 


q 


q 





i 





i 



par de registradores BC 

par de registradores DE 

par de registradores HL 

par de registradores AF 



PUSH HL 



1110 10 1 



>E5 



Descricdo: conteudo do par de registradores qq 6 coloca- 
do na mem6na de trabalho do microprocessador. Esta mem6- 
na 6 chamada STACK e opera na estrutura LIFO (last-in, first- 
out), isto 6, o ultimo valor colocado no STACK sera" sempre o 
pnmeiro a sair; o penultimo valor colocado no STACK sera" o 
segundo a sair; e assim sucessivamente. 

Podemos entender melhor a operacao desta mem6na se fi- ^ 
zermos uma analogia com uma pilha de caixas. A ultima caixa&£ 
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colocada na pilha sera sempre a pnmeira a ser retirada e se qui- 
sermos retirar uma caixa que se encontra no meio da pilha te- 
remos que retirar todas as caixas que se encontram acima da 
caixa desejada. 

registrador STACK POINTER de 16 bits contem o ende- 
reco corrente do topo do STACK. Uma mstrucao de PUSH pn- 
meiro decrementa o endereco contido no STACK POINTER 
e move o conteudo do registrador de alta ordemdo par de regis- 
tradores espeaficado para o endereco apontado pelo STACK 
POINTER. Em seguida, decrementa o registrador SP nova- 
mente e move o conteudo do registrador de baixa ordem do 
par de registradores especificado para o endereco apontado 
pelo STACK POINTER. 



EXEMPLO: PUSH DE 



Ciclos de mdquina (M): 3 
States (T): 11(5,3,3) 
Flags afetadas: Nenhuma 

Como exemplo, se o par de registradores AF contem 2233H 
e o STACK POINTER contem F545H, apos a mstrucao PUSH 
AF, o endereco de mem6na F544H contera o byte 22H, o en- 
dereco de mem6ria F543H contera" o byte 33H e o STACK 
POINTER contera F543H. Agora o valor 2233H esta contido 
no par de registradores AF e no topo do STACK. 

16 - Move registrador indexador IX para o STACK 

Formato: PUSH IX 

Operacdo: conteudo do registrador indexador IX de 16 
bits 6 colocado no STACK. 




Cddigo objeto: 



PUSH IX 



— I ! I 1 1 1 I 

110 1110 1 

-H — i — i — I — I — I — (— 

1110 10 1 

. I I I I 



► DD 



>E5 



Descricdo: conteudo do registrador indexador IX £ colo- 
cado no STACK. Esta mstrucao pnmeiro decrementa o 
STACK POINTER e move o byte mais significativo do registra- 
dor IX para o endereco de memona especificado por SP, para, 
em seguida, decrementar novamente o STACK POINTER e 
mover o byte menos significativo do registrador IX para o en- 
dereco de memona especificado por SP. STACK e utilizado 
para o armazenamento temporano do conteudo de um regis- 
trador. 



EXLMPLO: PUSH IX 



Ciclos de mdquina (M): 4 
States (T): 15(4,5,3,3) 

Um exemplo: se o registrador indexador IX contem 3C00H 
e o STACK POINTER contem 7540H, apos a execucao da 
instrucio PUSH IX o endereco de mem6na 753FH contera o 
byte 3CH, o endereco de memona 753EH contera o byte 00H 
e o STACK POINTER contera 753EH. 

1 7 - Move registrador indexador IY para o STACK 

Formato: PUSH IY 

Operacdo: conteudo do registrador indexador IY de 16 
bits 6" colocado no STACK. 




Cddigo objeto: 



PUSH IY 



— 1 1 1 — I 1 — I r— 

11111101 

—I — I — I — I — I — I — I— 



1110 10 1 

I ■ I I 1— _ I — 



> FD 



> E5 



Descricdo: O conteudo do registrador indexador IY e colo- 
cado no STACK. Esta mstrucao pnmeiro decrementa o 
STACK POINTER e move o byte mais significativo do registra- 
dor IY para o endereco de memona especificado por SP, para 
entao decrementar novamente o STACK POINTER e mover o 
byte menos significativo do registrador IY para o endereco de 
memona especificado pelo STACK POINTER. 



EXEMPLO: PUSH IY 



(SP-D4- -IY 

(SP-2X -IY, 



H 



Ciclos de mdquina (M): 4 

Stares fTV: 15(4,5,3.3) 

Como exemplo, se o registrador indexador IY contem 
90F5H e o STACK POINTER contem 7000H, ap6s a execucao 
da instruca"o PUSH IY o endereco de memona 6FFFH contera 
o byte 90H, o endereco de memona 6FFEH contera o byte 
F5H e o STACK POINTER contera 6FFEH. 

18 - Move STACK para par de registradores 

Formato: PoP qq 

Operacdo: conteudo do topo do STACK e" colocado no 
par de registradores qq. 

Codigo objeto: 

PoP qq 



00 para qq 

01 para qq 

10 para qq 

11 para qq 

EXEMPLO : 



»h 


q 


q 


o 





oil 



par de registradores BC 

par de registradores DE 

par de registradores HL 

par de registradores AE 





Pop BC 


1 


I 


1 

i , 



>C1 



Descricdo: Esta mstrucao coloca no registrador de baixa 
ordem do par de registradores qq o conteudo da posicao de 
mem6na apontada pelo STACK POINTER, incrementa o con- 
teudo do registrador SP, move o conteudo da posicao de me- 
mona apontada pelo STACK POINTER para o registrador de 
alta ordem do par de registradores qq e incrementa novamente 
o conteudo do STACK POINTER. 



EXEMPLO 



PoP DE 



(SP) 



D < (SP + 1) 

Ciclos de mdquina (M): 3 

States (T): 10(4,3,3) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contem 9000H, 
a loca^ao de memona 9000H contdm 55H e a locacao de me- 
m6na 900 1H contem 01H, apos a execucao da mstrucao 
PoP HL o par de registradores HL contera o valor 01SSH e o 
conteudo do STACK POINTER sera 9002H. 

19 - Move STACK para registrador indexador DC 
Formato: PoP IX 
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Operacdo: conteudo do topo do STACK e colocado no 
registrador indexador IX de 16 bits. 
PoP IX 



— i — i — i— i — i — i — r~ 
110 1110 1 



l i i — i t i 



1110 1 

I I I I I . . — 



> DD 



>E1 



Descricdo: Esta instruca"o coloca nos 8 bits menos significati- 
vos do registrador indexador DC de 1 6 bits o conteudo de posica"o 
de memoria apontada pelo STACK POINTER, incrementa o 
conteudo do registrador SP, moye o conteudo da posicao de 
memoria apontada pelo STACK POINTER para os oito bits 
mais sigmficativos do registrador indexador IX e incrementa 
novamente o conteudo do STACK POINTER. 



EXEMPLO: PoP IX 




(SP) 
(SP*1) 



Ciclos de mdquina (M):4 

States (T): 14(4,4,3.3) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contem a locacao 
de mem6na 7000H, a locacao de mem6na 7000H contem 
9AH e a locacao de mem6na 700 1H contem 35H, apos a 
execucao da instrucSo PoP IX o registrador IX contera o valor 
359AH e o conteudo do STACK POINTER sera 7002H. 

20 - Move STACK para registrador indexador IY 

Formato: PoP IY 

Operacdo: O conteudo do topo do STACK e colocado no 
registrador indexador IY de 16 bits. 



Codigo objeto: 

PoP 

— I — i — 
111 



IY 



1110 1 



1 1 

1 



10 1 

' ' ■ I I 



>FD 



>E1 



Descricdo: Esta instrucao coloca nos oito bits menos sigmfi- 
cativos do registrador indexador IY de 1 6 bits o conteudo da po- 
sicao de memdna apontada pelo STACK POINTER, incremen- 
ta o conteudo do STACK POINTER, move o conteudo da po- 
sicao de memoria apontada pelo STACK POINTER para os 
oito bits mais sigmficativos do registrador indexador IY e 
incrementa o STACK POINTER. 

(SP) 



EXEMPLO: PoP IY 



IY E«- 



l \< 



(SP*1) 



Ciclos de mdquina (M): 4 

States (T): 14(4,433) 

Flags afetadas: Nenhuma 

Como exemplo, se o STACK POINTER contem 9000H e a 
posicao de memoria 9000H contdm 7FH e a posicao seguinte 
47H, apos a execucao da instrucao PoP IY o registrador IY 
contera" o valor 477FH e o conteudo do STACK POINTER se- 
ra 9002H. I 
.gj 

Amaury Correa de Almeida Moraes Junior 6 formado pelo curso de 
Analise de Sistemas da FASP, tendo feito di versos cursos de aperfeicoa- 
men to nas Areas de Eletrdnica Digital e Microprooessadores. 
Amaury trabalha como Analista de Sistemas na PRODESP, na Area de 
mini /microcomputadores , e presta consultoria a empresas para a implan 
tacSo de sistemas de microcomputadores. 



Impressora 
Matricial 
Elgin Lady 



Velocidade de impressao 100 cps 

132colunasa lOcpi 



A impressora Elgin Lady e o novo padrSo para aplicacoes profissionais 

em seu computador pessoal ou microcomputador. 

Com velocidade de 100 CPS, os caracteres impressos em matriz de pontos 

no formato 9x7, sao de alta resolucab. Com capacidade de 132 colunas, 

comporta ate 264 caracteres /linha. 

Atrav6s de uma tecla, em modo conversacional, 18 funcoes sao disponiveis 

para completa definicao do formato de impressao, 

entre as quais 11 funcoes podem ser programadas via software. 

Com o modulo Elgingraph, a impressora Elgin Lady 

constitui a melhor escolha para seu microcomputador, 

em aplicagoes que requerem total flexibilidade grafica 

atrav6s de caracteres semi-graficos ou funcoes graficas 

com enderecamento a nfvel de agulhas. 

As interfaces, intercambiaveis a nivel de operador, 

capacitam a Elgin Lady a uma serie de diferentes coneccoes 

com a maioria dos microcomputadores 

e sistemas disponiveis no mercado. * ^ 



Uma Dnrisaodt ELGIN MAQOINAS S A 
Ru» Barao d* Campinas. 305 
OEP 01201 Tel 22i. 
Te«e« (01 T) 37805 ELGI BH 




J 



Conne^a a nova Elgin Lady em 



Sao Paulo: MICROSHOP Fone 282-2105 • COMPUTERLAND Fone 258-2954 • COMPUSHOP Fone 212 9004 
SERVIMEC Fone 222 151 1 • IMARES Fone 881 0200 Campinas: COMPUTIQUE Fone 32-3810 

Rio de Janeiro: COMPUTIQUE Fone 267 1093 • CLAPPY - Fone: 253-7930 • TECNITRON Fone 2339670 
Porto Alegre: INFORMATIOUE Fone 21-4189 • COMPUMiDIA Fone 22 5061 
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VENDO 



irn 




• Tendo adquirido urn compu 
tador de bolso SHARP PC-150O, 
teria interesse em me correspon 
der com usudrios deste micro 
Disponho de alguns programas de 
senvolvidos para a a>ea financeira 
bem como de duplicatas de seus 
manuais. inclusive o "Service Ma 
nual" Antonio Cesar de Sa Lei 
tab. Rua Wanderley de Pin ho 
644/1001. Itaigara. CEP 40000 
Salvador, Bahia. 

• Gostaria de entrar em contato 
com usuarios do micro DGT-100 
para troca, compra e venda de 
programas, assim como ideias e di- 
cas. Caso haja algum clube deste 
micro ou compati'veis favor escre- 
ver ou telefonar para Rodirgo Ce- 
sar Santos, Rua Pedro Dutra, 212, 
Jaragua, Belo Horizonte, CEP 
30000, MG, tel.: (031) 443-2096. 

• Gostaria de trocar ide'ias, expe- 
riencias e principalmente jogos 
com pessoas que possuam o mi- 
crocomputador CP-200 ou simila- 
res. Entre em contato com JoSo 
Bosco de Castro na Rua Licinio 
Leite Machado, 59, Bairro Santa- 
na, Sao Jose dos Campos, Sao 
Paulo ou pelo tel: 22-0420. 



• Sou estudante universitdrio na 
area de Engenharia Eletrica (op- 
cab eletronica). Teria o maior 
prazer em receber informacdes 
nesta area e/ou ofertas de material 
tecnico e diddtico. Humberto de 
Castro Jr. Travessa das Mercedes, 
324, Sao Braz, Belem, PA. CEP 
66000. 

• Meu nome e Henrique Avila 
Vianna, tenho dez anos e gosta- 
ria de me corresponder com pes- 
soas que tenham microcomputa- 
dores Apple II, ou compatfveis, 
para troca de ideias, informacdes, 
programas e jogos. Tenho um Mi- 
croengenho e gosto muito de fa- 
zer programas e jogos. Estou con- 
vidando as pessoas que quiserem 
a enviarem suas cartas para: Hen- 
rique Avila Vianna, Rua Armando 
G. Sica, 55, Pelotas, Rio Grande 
do Sul, CEP 96100. 

• Desejo entrar em contato com 
pessoas que possuam um DGR- 
100 para trocar ide'ias e programas. 
Tenho muitos programas em BA- 
SIC e linguagem de maquina. Es- 
crever para J. F. da Silva F., Rua 
General Osorio, 1031, salas 106 e 
107, CEP 13100, Campinas, tel.: 
(0192) 86537, SP. 



MACROATENDlMENTa 

DUASGR ANDES 
ESPECIALIDADES DA 

C0MPUCITY. 



■"EU* ° • Kndtaen, ° ,ae * "* n ° 



programa. 




Ccmpucity 



Rua Tome de Souza, 882 - Savassi. Fone: 226 6336. BH - MG. 



SOFTWARE 

• Vendo uma fita com os se- 
guintes programas: Labirinto, 
Monstro das Trevas, Fugitivo, De- 
molidor. Agenda e Orcamento 
Domestico. para os seguintes mi- 
cros: TK82-C, TK85, CP-200, etc, 
pelo preco de Cr$ 10 mil. Tratar 
com Vicente Quartieri a Rua Ipe, 
110, Sab Vicente, S5o Paulo ou 
pelo tel: 67-4805. 

• Vendo ou troco programas de 
jogos para TK82-C e TK85. Tra- 
tar com Edson, Rua Guariba, 54, 
Vila Ema. Sab Paulo, tel.: (011) 
918-0998 (com Ruth). 

• Troco programas (principal- 
mente jogos) para micros compa- 
tfveis com o DGT-100. Renato 
Nogueira Mendes. Rua Mosela, 
436, Mosela, Petrbpolis, RJ, tel.: 
(0242) 42-2255. 

EQUIPAMENTOS 

• Compro esquema de qualquer 
microcomputador com base no 
microprocessador Z80 (TK82-C, 
NE-Z8000, CP-200, ZX81, etc), 
se possivel com desenho de placa 
e com indicacab das pecas. Tra- 
tar com Marcos Ceciliato, Cx. Pos- 
tal 45, CEP 13330, Indaiatuba, 
Sao Paulo. 

• Vendo TRS-80 Modelo I, 48K. 
interface, dois drives 5+1/4, ma- 
nuais, diversos software, disketes, 
tudo com pouquissimo uso, pela 
melhor oferta. Piso de Cr$ 800. 
mil. Tratar com Osni, tel.: (011) 
246-3133. 

• Vendo computador DGT-100,. 
com monitor verde fosforizado, 
interface para ate 4 disk-drives e 
para impressora paralela. Possui 
um disk-drive com 184 Kbytes, 
48 Kbytes de RAM e 20 Kbytes 
de ROM. Tratar com Vitor, apbs 
as 19:00h, pelo tel.: (011) 825- 
0055. 

• Vendo ou troco por EPROM 
PROGRAMMER: 2K serial inter- 
face Buffer Board for MX-100 e 
Parallel Interface Board/Cable for 
Aplle ll/MX-80. 

• Vendo impressor PC-100C pa- 
ra calculadora Texas TI-58 e Tl- 
59. Preco de Cr$ 220 mil. Acom- 
panha bolsa de couro e tres rolos 
de papel. Estado de conservacab: 
NOVA (na caixa). Tratar com 
Douglas Werner Heckmann, Rua 
Tuiutf, 35, Rio do Sul, SC, 89.1 60 
ou pelo tel.: (0478) 22-0907 (fins 
de semana). 

• Troco microcomputador de 
bolso (novo), 2,5 Kbytes de me- 
mdria, com impressora, interface 
para cassete, 130 programas, ma- 
nual de instrucab e de curso BA- 
SIC, (PC 1211 RP) da Sharp, por 
um microcomputador D 8001 da 
Dismac. Tratar com Vitor pelo 
tel.: (0192) 51-9755, ramal 5685, 
Campinas, Sffo Paulo. 



• Vendo um CP-500 com 48K 
bytes, um drive para disquetes de 
5 1/4" e com unidade sonora. O 
microcomputador ainda esta na 
garantia Recados para Oswaldo 
pelo telefone: (011) 264-2497. 

• Gostaria de obter cbpias de 
manuais dos seguintes micros: Sin- 
clair ZX81, VIC 20, Atari 400, 
Atom e Oric-1 e PC-1 500. Se a c6- 
pia do manual nab for possivel, 
pelo menos o mapeamento de me- 
mbria. Oduvaldo Barroso da Silva, 
Rua Prof. Valadares, 220/201, 
CEP 20561, Grajaii, RJ. 

• Troco CP-500 de 48 Kbytes e 
dois drives por TRS-80 III com 
identica configuracSo. So troco 
em perfeito estado, pago a dife- 
renca a combiner. Cartas para 
Paulo Fernandes, Rua Emiliano 
Perneta, 837/802, Curitiba, Para- 
na. 

• Vendo um microcomputador 
de bolso Casio FX702/801, com 
interface, printer e fitas para jo- 
gos. Tratar com Rubens, tel.: (01 1) 
445-4962 ou 445-1940. 

• Vendo TK82-C com expansab 
de 16K de RAM, com apenas tres 
meses de uso, por Cr$ 100 mil. 
Acompanha dois jogos. Tratar 
com Jose Tavares na Av. Vicente 
de Carvalho, 92/124, Santos, Sab 
Paulo, CEP 11100. 

• Vendo Calculadora Hewlett- 
Packard 41C, por Cr$ 190 mil. 
Tratar com Arlindo Martins Filho, 
Rua Esmeraldino Bandeira, 393, 
Aflitos, Recife, Pernambuco, 
50.000, tel.: (191) 222-4925. 

DIVERSOS 

• Faco adaptacdes do teclado 
original do TK82-C para teclas de 
borracha. Informacdes com Tuca 
pelo telefone: (011) 864-8479, 
Sab Paulo. 

• Preciso de manual ou xerox 
do manual do Disk-Basic e do 
DOS do NEWDOS-80, versab 2.0 
para o TRS-80 Modelo I. Quern ri- 
ver, por favor, entrar em contato 
com Beth (711-7844) ou Eraldo 
(719-9265) a noite. Sab Paulo. 

• Compro os numeros 1 , 2 e 3 
de MICRO SISTEMAS. Claudio 
Marcio, tel.: (0245) 22-4016 (a 
noite). Nova Friburgo, RJ. 

• Compro os numeros 2, 6, 7 e 9 
de MICRO SISTEMAS. Tratar 
com Edson Miguel, Rua Benjamin 
Constant, 490, 13300, Itu, tel.: 
482-0998. SP. 

• Oferece-se palestra sobre mi- 
crocomputador com slides. Infor- 
macdes e inscricSes pela Caixa 
Postal 7459, CEP 0100, Sab Paulo. 

• Vende-se cadastro de usuario 
de computador. Escreva para Cx. 
Postal 7459, CEP 01000, SSo Pau- 
lo. 
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uas marcas orasileiras. 



.\»«0^ 



A partir de hoje estarei em sun memoria todos os 
dins, no trabalho, em casa, no Inzer. Agora somas 
dots, en e voce. Sou Jlexuel e se eon desejur. 
pode me utilizar com todos os K-Bytes de potencia. 
Quando est ivermos juntos, naoficara somente uma 
vaga lembranca, mas sim, muitos bytes de memoria. 
Yon- pode me encontrar em todas as modalidade 
Simples on duplu face, H on 5 1/4 
sou compativei com todos os tipos de 
e intuitu certificactio e garantida de zero erros. 
Agora voce pode me adquirir em qnalquer ponto 
do Brasil, atraves da Rede Nacional de 
B presentantes e Revendedorea. 










Adm. e Yendus: Run tor d Coc krone. 775 - lpircWL>a - SP f'ABX {01 h 9, 
Filial RJ: Run Senudor liturtas. 75 - 22° undur Sola 2202 Telsii (021) 220. 
Filial BH Run Selento 2M sola 202 - Belo Honzonte-SH , 1,1. (031} 334.4768 
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Um pro grama que demonstra, de forma simples, a utilidade de micros 
na medicina: Calculo da Data Provdvel de Parto. 



Data provavel 
de parto 



Adauto Barbosa 



u 



ma grande verdade conhecida de todos os medicos e 
o dito a clinica 4 soberana. Sabemos que nunca nada 
substituird a boa anamnese e o bom exame fisico. 
Entretanto, tambe'm i verdade que para isso 6 necessario 

tempo. 

InformaoOes novas de todo tipo que nos chegam todos os 

dias e tern que ser sedimentadas e digeridas quase que de 

imediato, tomam-nos preciosas horas, e o tempo gasto 

com cada paciente deve ser o maior possivel. 

Assim, qualquer medida que se tome para tornar o tempo 

do medico melhor aproveit^vel € vilida e o progresso 

tecnol6gico nos trouxe um pequeno aparelho que vem de 

encontro a isto: o microcomputador. 

Como exemplos simples de utilizacao do micro num 

consult brio me"dico, podemos citar : cadastramento de 

clientes; mar cacao de consult as; arquivo de dados de 

anamnese ; exames fisicos, diagn6sticos e do tratamento; 

selecao de diagnosticos provaveis; utilizacao de tabelas 

de dificil memorizaca"o; contabilidade do consult6rio etc. 

programa que apresentamos a seguir e um exemplo pequeno 

que poderia fazer parte da rotina diaria de um consult 6rio, 

laboratono ou hospital. Ele calcula uma data provavel do 

parto de gestantes a partir da data da ultima menstruacao, 

atrave"s da Regra de Nagelle, e foi desenvolvido em 

BASIC no CP-500. 



Adauto Dutra M. Barbosa 6 MMico Pediatra pds-graduado pela Univer- 
sidade Federal do Rio de Janeiro — UFRJ e utiliza microcomputadores 
em sua clinica particular ha" alguns anos. 



Cilculo da Data ProvAvel de Parto 



1 '::::::: TABELA OBSTETRICA ::::::: 

2 ' : : BASEADA NA REGRA DE NAGELLE : : 

3 ':: AUTOR: ADAUTO DUTRA M BARBOSA 



4 '; 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 

240 

250 

260 

270 

280 

290 

300 
310 
320 

330 

340 
350 
360 
370 

380 
390 

400 
410 
420 
430 
440 
450 



NITEROI : : : RJ 
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CLS 

FOR B=1 TO 127:SET(B,1):NEXT 

FOR B=1 TO 47:SET( 1,B):NEXT 

FOR B=1 TO 127:SET(B,47):NEXT 

FOR B=1 TO 47:SET(127,B) :NEXT 

?©1 50, "TABELA OBSTETRICA" 

?©2 14, STRINGS ( 17,":") 

?©278, "REGRA DE NAGELLE" 

? 

?®TAB(5)"DATA DA ULTIMA MENSTRUACAO" 

?@453, STRINGS (25,"-") 

INPUT "((DIGITE ENTRE VIRGULAS:DIA,MES, ANO) : " ;D 

,M,A 

?©645,"DATA PROVAVEL DO PARTO: ": ?©676 .STRINGS ( 1 

0,"-") 

?©709, STRINGS ( 22, "-"):?@740, STRINGS (1,"-"):?©74 

9, STRINGS (1,"-") 

IF D<ASC(";")-ASC(" # ") THEN ?@742 , "DIA: " | 

"K")-ASC("D") 

IF D>ASC("«")-ASC("%") THEN ?@742,"DIA:" 

("?")-ASC("%")) 

IF D=ASC("U")-ASC(" < ") THEN ?©742 , "DIA: " ; 

")-ASC("(") 

IF D=ASC("U")-ASC(";") THEN ?©742,"DIA: 

")-ASC("S") 

?©804, STRINGS ( 1 ,"-") :?©81 3, STRINGS ( 1 ,"-") 

?@868, STRINGS (1,"-") 

N$=CHR$(51 ) :IF M<=VAL(N$) THEN ?©870, "MES: " ;M+A 

SC("/")-ASC("fc"):?©877, STRINGS ( 1,"*") 

MS=CHRS(52):IP M>=VAL(M$) THEN ?@870, "MES: " ;M-( 

ASC( "=") -ASC( ":")): ?©877 , STRINGS ( 1 ,"'" ) 

?©932 , STRINGS ( 1 , " ' " ) : ?©94 1 , STRINGS ( 1 , " ' " ) 

?©996, STRINGS |l,'"l 

S$=CHRS(51 ):IF M=VAL(S$) THEN ?®934 , "ANO: " ;A 

R$=CHRS(52):IF M=VAL(R$) THEN ?©934 , "ANO: " ;M+AS 

C("/")-ASCC") 

?©94 1, STRINGS d,"'") 

FOR K=l TO 47:SET(1,K):NEXT 

FOR K=1 TO 127:SET(47,K):NEXT 

FOR K=1 TO 47:SET( 127, K) :NEXT 

FOR K=1 TO 35:SET(K,3) : NEXT 

FOR K=80 TO 127:SET(K,3) :NEXT 

FOR K=1 TO 127:SET(K,1 ) :NEXT 

Z$=INKEY$:IF Z$="" THEN 450 ELSE END m 



D+ASC( 
D- ( ASC 
ASCC* 
ASC("* 



M 



M 



PROCURE QUEM 
REALMENTE ErVTENDE. 

MICROMAQ 

R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-0688 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manuten^ao de Equipamentos. 
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Com a ajuda do CP-500, voce podera* saber com antecedencia os ani versa" rios 
do mis e evitar aqueles esguecimentos tao constrangedores. 



Parabens no dia certo 



Luiz Gonzaga de A/varenga 



\yk jr\ uitas vezes ocorre de nos lembrarmos tardiamente de 
ll/l urn aniversano do qual nao deven'amos ter esquecido. 
1^*A Outras vezes, queremos saber antecipadamente os 
aniversanos que irao ocorrer em determinado mes, ou mesmo 
venficar em que data determinada pessoa vai aniversanar. 

Com a ajuda deste pequeno programa, pode-se fazer urn 
controle rapido, facil e eficiente das datas de aniversano que 
nos interessam. Ele permite uma hstagem por nomes ou datas 
(meses). podendo controlar um maximo de 40 nomes ou 
datas. 

Como sao ainda poucos os usuanos de micros que possuem 
disquetes, o programa foi desenvolvido de modo a conter os 
dados nas linhas com instrucdes DATA. Dessa forma, devem 
ser introduzidas linhas em qualquer posicao do programa com 
as informacdes a serem arquivadas, conforme o modelo 
mostrado na figura 1 . 

£ conveniente colocar os nomes em ordem alfabe'tica. pois 
assim ficara mais facil procurar na hsta que o programa ira 
mostrar no video. 

Caso se deseje, o niimero de nomes e/ou datas de aniversa- 
no pode ser aumentado, modificando-se as linhas 30, 70, 90, 
110. 120, 150e360. 

O programa foi elaborado no CP-500 e roda em outros equi- 
pamentos com poucas modificacoes. 



Luiz Gonzaga de Alvarenga e" TGcnico de Telecomunicagoes e trabalha 
na Embratel, em GoiSnia, onde reside. 



Controle de Datas de Aniversarios 
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CENTRALDATA 

Cn r ItntwiHUti Hii. 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada 

Fita Magnetica 600 1 200 e 24TJ0 Pes 



Discos Magneticos 5 Mb. 16 Mb. 80 Mb etc. 
Diskettes 5 1/4. e 8 Poiegadas — Simples e Dupla Face 

ETIOUETAS PIMACO -PIMATAB 



• Fita CARBOFITAS p/lmpressoras Globus M 200 - B 300/600 

• Fita p/lmpressoras: Elebra. Digilab, Oiablo. Centronicetc. 

• Cartucho Cobra 400 

• Pastas e FormuianosContinuos. 



AV PRESIDENTE VARGAS 482- GR 207 - TELS (021) 263-5876 - 253-1120 - RJ 
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Inaugurada recentemente em Porto A I eg re, a Computche traz uma proposta 
seria para apli cacao dos micros no Brasil. 



Computche, uma loj a trilegal! 






0~ jcupando uma area com cerca 
de 350 metros quadrados na 
Av. Independence - 599, a 

Computche, uma loja do Grupo LHM 
Software & Hardware, esta dividida em 
tres departamentos: vendas de equipa- 
mentos, software, penfdncos, acess6- 
rios, bvros e revistas espeaalizadas; as- 
sessona as empresas na implantacao de 
micro-sistemas; e um terceiro setor de- 
dicado a formacSo profissional, com 
cursos de digitacao/operac3o;programa- 
dfo em linguagens BASIC, COBOL e 
FORTRAN e ainda palestras e semina- 
rios. 

Diretor-Presidente do Grupo LHM, 
Luis Henrique Mignone.ao consideraro 
mercado gaiicho altamente promissor e 
receprjvo £s inovacCes, afirma ser a 
Computche nao apenas mais uma loja 
de microcomputadores, mas sim o novo 
ponto de encontro da comunidade de 
Informatica de Porto Alegre. "Para isso, 
estamos utilizando um marketing bas- 
tante agressivo, oferecendo 6tima quali- 
dade dos produtos e onentacao ao clien- 
te na hora da compra", diz Luis Henri- 
que. 

OS DEPARTAMENTOS 

departamento de vendas da Com- 
putche comercializa tanto os produtos 
fabncados pela LHM Software e Hard- 
ware co mo os equipamentos da Unitron, 
Prol6gica, Polymax, Kemitron, Digitus e 
Microdigital. Na &ea de software, sSo 
oferecidos os seguintes pacotes: Conta- 
bihdade GeraJ, PERT/CPM, Arquivos, 
Mala Direta, Visiplot/Visitrend, Editor 
de Textos, Adm. Imobiliana, VisiCalc, 
Folha de Pagamento, Consultor Medico, 
Consultor Odontol6gico, entre outros. 

"Como quase tudo o que n6s temos 
no Brasil, em termos de acess6rios pa- 
ra o computador, e" importado ou con- 
trabandeado, a LHM decidiu se Ian car 
na fabncacSo de acess6rios", diz Luis 
Henrique. A Computche passara* a co- 
mercializar Placas de Expansao de 16, 
32, 64 e 1 28 K para a linha Apple ; Placa 



Videx; Buffer de 32, 64 e 128 K para 
impressoras; Teclado Nume"nco para 
Apple; Ventilador para CPU; Ventilador 
para Dnve e joystick. 

A Computche rnantdm, junto com a 
equipe de vendas, uma outra de consul- 
tores especializados para orientar as em- 
presas na lmplantacSo de micro-siste- 
mas. Pnmeiro, para analisar qua! exata- 
mente o equipamento adequado as ne- 
cessidades do cliente. Segundo, para 
constatar se existem no mercado pro- 
gramas disponiveis para aquele tipo de 
aquisica~o. 

Segundo Luis Henrique, a Comput- 
che 6 a unica loja em todo Brasil que 
oferece seis meses de garantia na compra 
de qualquer produto. cliente tern ate - 
36 meses para pagar; na compra de um 
equipamento ganha um programa aplica- 
uvo de bonificacao e se levar a linha 
Software LHM, tern 10% de desconto. 




A Computche ( o mats novo ponto de 
encontro da comunidade de Informdti- 
ca, em Porto Alegre. 



MUDANCA DE FILOSOFIA 

Para o Presidente do grupo LHM, a 
maior preocupacSo da Computche 6 
com a qualidade dos produtos que co- 
mercializa. objetivo do grupo e - esta- 
belecer no mercado gaiicho um padra~0 
de qualidade confiavel para o cliente. 
Todos os produtos comercializados na 
loja e que n3o sa"o fabncados pela LHM 
passam por um criterioso sistema de 
sele?a*o. 

Outra preocupacSo do grupo refere- 
se a forma como foram apresentados os 
micros no Brasil. "Houve um erro de 
marketing em tudo isso", afirma Luis 
Henrique. "N6s vemos fabricantes lan- 
cando os micros como mdquinas de jo- 
guinhos. Apresentam o micro como um 
flipper e depois dizem que ele tambe'm 
faz coisas se*nas. £ contra este upo de 
mentalidade que n6s estamos lutando, 
produzindc uma bnha de aplicacao seria 
para o computador". A Computche 
vende 99% de aplicativos, deixando os 
jogos em segundo piano. 

Presidente do grupo LHM nao ve 
com muito otimismo o setor de Infor- 
ma"tica, no Brasil. Para ele, muitas coi- 
sas nessa area esta~o erradas e desajus- 
tadas. "Trabalhar na rirea de software, 
neste pais, com os piratas a solta, 6 
brincadeira. Lamento que uma a'rea tfo 
importante esteja relegada ao jeitinho 
brasileiro. A SEI 6 um 6rga"o aoifalo e 
n6s n5o temos um foro para discutir 
qualquer tipo de assunto". 

Lufs Henrique Mignone acredita que, 
embora o mercado de micros no Brasil 
seja muito promissor, a maior parte dos 
que esta~o se lancando n5o tera"o estrutu- 
ra para prosseguir. "SerSo necessdrios al- 
tos investimentos, boa dose de profissio- 
nalismo e muito jogo de cintura para 
nlo sucumbir", conclui ele. ■ 



Texto: Craca Santos 
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